home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1997 #3 / Amiga Plus CD - 1997 - No. 03.iso / pd / programmierung / alienbreed3d2_src / cheesesauce / wbhires.s < prev    next >
Text File  |  1997-01-31  |  170KB  |  12,003 lines
  1.  
  2.  
  3. *************************************************
  4. * Stuff to do to get a C2P version:
  5. * Change copperlist
  6. * Change wall drawing
  7. * change floor drawing
  8. * change object drawing
  9. * change polygon drawing (ugh)
  10. * Write a palette generator program in AMOS
  11. * to provide a good 256 colour palette and
  12. * convert all graphics files specified
  13. * (possibly included in the game linker
  14. * program).
  15. * Possibly change the wall/floor/object
  16. * palettes to look nicer with more shades.
  17. * RE-implement stippling (if not present)
  18. * as it will look gorgeous now.
  19. *************************************************
  20.  
  21. ;MIDDLEX set 96
  22. ;RIGHTX set 191
  23. ;BOTTOMY set 160 
  24.  
  25. ;MIDDLEX set 96
  26. ;RIGHTX set 191
  27. ;BOTTOMY set 160
  28.  
  29. _break    macro
  30. ;    bkpt    \1
  31.     endm
  32.  
  33.  
  34. FILTER    macro
  35. ;    move.l    d0,-(sp)
  36. ;    move.l    #65000,d0
  37. ;.loop\@
  38. ;    bchg    #1,$bfe001
  39. ;    dbra    d0,.loop\@
  40. ;    move.l    (sp)+,d0
  41.     endm
  42.  
  43. BLACK    macro
  44.     move.w    #0,$dff180
  45.     endm
  46.  
  47. RED    macro
  48.     move.w    #$f00,$dff180
  49.     endm
  50.  
  51. FLASHER macro
  52. ;    movem.l    d1,-(sp)
  53. ;    move.w    #-1,d1
  54. ;
  55. ;loop3\@
  56. ;;    move.w    #\1,$dff180
  57. ;    nop
  58. ;    nop
  59. ;    move.w    #\2,$dff180
  60. ;    nop
  61. ;    nop
  62. ;    dbra    d1,loop3\@
  63.  
  64. ;    movem.l    (sp)+,d1
  65.  
  66.     endm
  67.  
  68. GREEN    macro
  69.     move.w    #$0f0,$dff180
  70.     endm
  71.  
  72. BLUE    macro
  73.     move.w    #$f,$dff180
  74.     endm
  75.  
  76. DataCacheOff macro
  77.     movem.l    a0-a6/d0-d7,-(sp)
  78.     move.l    4.w,a6
  79.     moveq    #0,d0
  80.     move.l    #%0000000100000000,d1
  81.     jsr    _LVOCacheControl(a6)
  82.     movem.l    (sp)+,a0-a6/d0-d7
  83.     endm
  84.  
  85. DataCacheOn macro
  86.     movem.l    a0-a6/d0-d7,-(sp)
  87.     move.l    4.w,a6
  88.     moveq    #-1,d0
  89.     move.l    #%0000000100000000,d1
  90.     jsr    _LVOCacheControl(a6)
  91.     movem.l    (sp)+,a0-a6/d0-d7
  92.     endm
  93.  
  94.     opt    P=68020
  95.  
  96.     include utils:sysinc/hardware/intbits.i
  97.     include    workbench:utilities/devpac/system            use pre-assembled header
  98.     include    exec/exec_lib.i
  99.     include    intuition/intuition.i
  100.     include    intuition/intuition_lib.i
  101.     include    graphics/graphics_lib.i
  102.     include    graphics/text.i
  103.  
  104.  
  105. CD32VER equ 0
  106.  
  107. maxscrdiv EQU 8
  108. max3ddiv EQU 5
  109. playerheight EQU 12*1024
  110. playercrouched EQU 8*1024
  111. scrheight EQU 80
  112.  
  113. ; k/j/m
  114.  
  115. ; 4/8
  116. ; s/x
  117. ; b/n
  118.  
  119. midoffset EQU 104*4*40
  120.  
  121.  
  122.  SECTION Scrn,CODE
  123. OpenLib       equ -552
  124. CloseLib      equ -414
  125.  
  126. INTREQ        equ    $09C
  127. INTENA        equ    $09A
  128. INTENAR    equ    $01C
  129. DMACON        equ    $096
  130.  
  131. SERPER        equ    $032
  132. SERDATR    equ    $018
  133. SERDAT        equ    $030
  134. vhposr        equ $006    
  135. vhposrl    equ $007 
  136.  
  137. bltcon0    equ $40 
  138. bltcon1    equ $42
  139. bltcpt        equ $48
  140. bltbpt        equ $4c
  141. bltapt        equ $50
  142. spr0ctl    equ $142
  143. spr1ctl    equ $14a
  144. spr2ctl    equ $152
  145. spr3ctl    equ $15a
  146. spr4ctl    equ $162
  147. spr5ctl    equ $16a
  148. spr6ctl    equ $172
  149. spr7ctl    equ $17a
  150. spr0pos    equ $140
  151. spr1pos    equ $148
  152. spr2pos    equ $150
  153. spr3pos    equ $158
  154. spr4pos    equ $160
  155. spr5pos    equ $168
  156. spr6pos    equ $170
  157. spr7pos    equ $178
  158. bltdpt         equ $54
  159. bltafwm    equ $44
  160. bltalwm    equ $46
  161. bltsize         equ $58
  162. bltcmod         equ $60
  163. bltbmod         equ $62
  164. bltamod         equ $64
  165. bltdmod         equ $66
  166. diwstart        equ $8e         ; Screen hardware registers.
  167. diwstop         equ $90
  168. ddfstart        equ $92
  169. ddfstop         equ $94
  170. bplcon0         equ $100
  171. bplcon1         equ $102
  172. col0            equ $180
  173. col1            equ $182
  174. col2        equ $184
  175. col3        equ $186
  176. col4        equ $188
  177. col5        equ $18a
  178. col6        equ $18c
  179. col7        equ $18e
  180. col8            equ $190
  181. col9            equ $192
  182. col10           equ $194
  183. col11           equ $196
  184. col12           equ $198
  185. col13           equ $19a
  186. dmacon        equ $96
  187. dmaconr        equ $002
  188. intenar        equ $01c
  189. intena        equ $09a
  190. intreq        equ $09c
  191. intreqr        equ $01e
  192. intreqrl    equ $01f
  193. bpl1pth         equ $e0
  194. bpl1ptl         equ $e2
  195. bpl2pth        equ $e4
  196. bpl2ptl        equ $e6
  197. bpl3pth        equ $e8
  198. bpl3ptl        equ $ea
  199. bpl4pth        equ $ec
  200. bpl4ptl        equ $ee
  201. bpl5pth        equ $f0
  202. bpl5ptl        equ $f2
  203. bpl6pth        equ $f4
  204. bpl6ptl        equ $f6
  205. bpl7pth        equ $f8
  206. bpl7ptl        equ $fa
  207. bpl8pth        equ $fc
  208. bpl8ptl        equ $fe
  209. spr0pth        equ $120
  210. spr0ptl        equ $122
  211. spr1pth        equ $124
  212. spr1ptl        equ $126
  213. spr2pth        equ $128
  214. spr2ptl        equ $12a
  215. spr3pth        equ $12c
  216. spr3ptl        equ $12e
  217. spr4pth        equ $130
  218. spr4ptl        equ $132
  219. spr5pth        equ $134
  220. spr5ptl        equ $136
  221. spr6pth        equ $138
  222. spr6ptl        equ $13a
  223. spr7pth        equ $13c
  224. spr7ptl        equ $13e
  225. adkcon        equ   $09E
  226.  
  227.  
  228. ; move.l #length,d0
  229. ; moveq.l #2,d1    ; chipmem
  230. ; move.l 4.w,a6
  231. ; jsr allocmem(a6) = -198
  232.  
  233. ; tst.l d0
  234. ; beq.s ohbugger
  235. ; move.l d0,memaddr
  236.  
  237.  
  238. ; move.l 4.w,a6
  239. ; move.l memaddr,a1
  240. ; move.l #size,d0
  241. ; jsr freemem(a6) =-210
  242.  
  243.  
  244. ** This waits for the blitter to finish before allowing program
  245. ** execution to continue.
  246.  
  247.  
  248.  include "ab3:source_4000/protsetupdecode"
  249.  
  250. SAVEREGS MACRO
  251.  movem.l d0-d7/a0-a6,-(a7)
  252.  ENDM
  253.  
  254. GETREGS MACRO
  255.  movem.l (a7)+,d0-d7/a0-a6
  256.  ENDM
  257.  
  258.  
  259. WB MACRO
  260. \@bf:
  261.  btst #6,dmaconr(a6)
  262.  bne.s \@bf
  263.  ENDM
  264.  
  265. WBa MACRO
  266. \@bf:
  267.  move.w #\2,$dff180
  268.  
  269.  btst #6,$bfe001
  270.  bne.s \@bf
  271. \@bz:
  272.  
  273.  move.w #$f0f,$dff180
  274.  
  275.  btst #6,$bfe001
  276.  beq.s \@bz
  277.  
  278.  ENDM
  279.  
  280. *Another version for when a6 <> dff000
  281.  
  282. WBSLOW MACRO
  283. \@bf:
  284.  btst #6,$dff000+dmaconr
  285.  bne.s \@bf
  286.  ENDM
  287.  
  288. WT MACRO
  289. \@bf:
  290.  btst #6,(a3)
  291.  bne.s \@bd
  292.  rts
  293. \@bd: 
  294.  btst #4,(a0)
  295.  beq.s \@bf
  296.  ENDM
  297.  
  298. WTNOT MACRO
  299. \@bf:
  300.  btst #6,(a3)
  301.  bne.s \@bd
  302.  rts
  303. \@bd: 
  304.  btst #4,(a0)
  305.  bne.s \@bf
  306.  ENDM
  307.  
  308. **
  309.  
  310.  include "ab3:source_4000/ProtectionProtection"
  311.  include "ab3:includes/macros.i"
  312.  include "ab3:source_4000/defs.i"
  313.  
  314.  move.w (a0)+,mors
  315.  
  316. ;    FLASHER $0f0,$fff
  317.  
  318. ; PROTFCALC
  319. ; PROTGCALC
  320. ; PROTHCALC
  321. ; PROTICALC
  322. ; PROTKCALC
  323. ; PROTLCALC
  324. ; PROTMCALC
  325.  
  326.  move.l #PALETTEBIT,a0
  327.  move.l #COPIEDPAL+4,a1
  328.  move.w #255,d0
  329.  
  330. copydown:
  331.  move.b 1(a0),(a1)
  332.  move.b 3(a0),4(a1)
  333.  move.b 5(a0),8(a1)
  334.  add.w #6,a0
  335.  add.w #12,a1
  336.  dbra d0,copydown
  337.  
  338.  
  339.  move.l #$dff000,a6    ; NB V. IMPORTANT: A6=CUSTOM BASE
  340.  move.w intenar(a6),_storeint
  341.  and.w #$c000,_storeint
  342.  
  343.  move.w #13,SERPER(a6)    ;19200 baud, 8 bits, no parity
  344.  
  345.  
  346.  st GOURSEL
  347.  
  348.  move.l 4.w,a6
  349.  lea VBLANKInt(pc),a1
  350.  moveq #INTB_COPER,d0
  351.  jsr _LVOAddIntServer(a6)
  352.  
  353.     IFEQ CD32VER
  354. ; move.l 4.w,a6
  355. ; lea KEYInt(pc),a1
  356. ; moveq #INTB_PORTS,d0
  357. ; jsr _LVOAddIntServer(a6)
  358.     ENDC
  359.  
  360.  IFNE CD32VER
  361.  clr.b PLR1KEYS
  362.  clr.b PLR1PATH
  363.  clr.b PLR1MOUSE
  364.  st PLR1JOY
  365.  clr.b PLR2KEYS
  366.  clr.b PLR2PATH
  367.  clr.b PLR2MOUSE
  368.  st PLR2JOY
  369.  ELSE
  370.  st PLR1KEYS
  371.  clr.b PLR1PATH
  372.  clr.b PLR1MOUSE
  373.  clr.b PLR1JOY
  374.  st PLR2KEYS
  375.  clr.b PLR2PATH
  376.  clr.b PLR2MOUSE
  377.  clr.b PLR2JOY
  378.  ENDC
  379.  
  380.  PRSDO
  381.  
  382.  move.l #2,d1    
  383.  move.l #10240*2,d0
  384.  move.l 4.w,a6
  385.  jsr -198(a6)
  386.  move.l d0,TEXTSCRN
  387.  move.w d0,TSPTl
  388.  swap d0
  389.  move.w d0,TSPTh
  390.  
  391.  move.l #nullspr,d0
  392.  move.w d0,txs0l
  393.  move.w d0,txs1l
  394.  move.w d0,txs2l
  395.  move.w d0,txs3l
  396.  move.w d0,txs4l
  397.  move.w d0,txs5l
  398.  move.w d0,txs6l
  399.  move.w d0,txs7l
  400.  swap d0
  401.  move.w d0,txs0h
  402.  move.w d0,txs1h
  403.  move.w d0,txs2h
  404.  move.w d0,txs3h
  405.  move.w d0,txs4h
  406.  move.w d0,txs5h
  407.  move.w d0,txs6h
  408.  move.w d0,txs7h 
  409.  
  410.  move.l #1,d1    
  411.  move.l #120000,d0
  412.  move.l 4.w,a6
  413.  jsr -198(a6)
  414.  move.l d0,LEVELDATA
  415.  
  416.  move.l #1,d1    
  417.  move.l #2*320*256,d0
  418.  move.l 4.w,a6
  419.  jsr -198(a6)
  420.  move.l d0,FASTBUFFER
  421.  
  422.  jsr START
  423.  
  424.  rts
  425.  
  426. FASTBUFFER: dc.l 0
  427. _storeint
  428.     dc.w 0
  429.  
  430. * Load level into buffers.
  431.  clr.b doanything
  432.  clr.b dosounds
  433.  
  434. ; DRAW TEXT SCREEN
  435.  
  436. TWEENTEXT:
  437.  
  438.  move.l #LEVELTEXT,a0
  439.  move.w PLOPT,d0
  440.  muls #82*16,d0
  441.  add.l d0,a0
  442.  
  443.  move.w #14,d7
  444.  move.w #0,d0
  445. DOWNTEXT:
  446.  move.l TEXTSCRN,a1
  447.  jsr DRAWLINEOFTEXT
  448.  addq #1,d0
  449.  add.w #82,a0
  450.  dbra d7,DOWNTEXT
  451.  rts
  452.  
  453. FONTADDRS:
  454.  dc.l ENDFONT0,CHARWIDTHS0
  455.  dc.l ENDFONT1,CHARWIDTHS1
  456.  dc.l ENDFONT2,CHARWIDTHS2
  457.  
  458. ENDFONT0:
  459.  incbin "ab3:includes/endfont0"
  460. CHARWIDTHS0:
  461.  incbin "ab3:includes/charwidths0"
  462. ENDFONT1:
  463.  incbin "ab3:includes/endfont1"
  464. CHARWIDTHS1:
  465.  incbin "ab3:includes/charwidths1"
  466. ENDFONT2:
  467.  incbin "ab3:includes/endfont2"
  468. CHARWIDTHS2:
  469.  incbin "ab3:includes/charwidths2"
  470.  
  471.  even
  472.  
  473. DRAWLINEOFTEXT:
  474.  movem.l d0/a0/d7,-(a7)
  475.  
  476.  muls #80*16,d0
  477.  add.l d0,a1    ; screen pointer
  478.  
  479.  move.l #FONTADDRS,a3
  480.  moveq #0,d0
  481.  move.b (a0)+,d0
  482.  move.l (a3,d0.w*8),a2
  483.  move.l 4(a3,d0.w*8),a3
  484.  
  485.  moveq #0,d1    ; width counter:
  486.  move.w #79,d6
  487.  tst.b (a0)+
  488.  beq.s NOTCENTRED
  489.  moveq #-1,d5
  490.  move.l a0,a4
  491.  moveq #0,d2
  492.  moveq #0,d3
  493.  move.w #79,d0    ; number of chars
  494. .addup:
  495.  addq #1,d5
  496.  move.b (a4)+,d2
  497.  move.b -32(a3,d2.w),d4
  498.  add.w d4,d3
  499.  cmp.b #32,d2
  500.  beq.s .DONTPUTIN
  501.  move.w d5,d6
  502.  move.w d3,d1
  503. .DONTPUTIN:
  504.  dbra d0,.addup
  505.  asr.w #1,d1
  506.  neg.w d1
  507.  add.w #320,d1    ; horiz pos of start x
  508.  
  509. NOTCENTRED:
  510.  move.w d6,d7
  511. DOACHAR:
  512.  moveq #0,d2
  513.  move.b (a0)+,d2
  514.  sub.w #32,d2
  515.  moveq #0,d6
  516.  move.b (a3,d2.w),d6
  517.  asl.w #5,d2
  518.  lea (a2,d2.w),a4    ; char font
  519. val SET 0
  520.  REPT 16
  521.  move.w (a4)+,d0
  522.  bfins d0,val(a1){d1:d6}
  523. val SET val+80
  524.  ENDR
  525.  add.w d6,d1
  526.  dbra d7,DOACHAR
  527.  movem.l (a7)+,d0/a0/d7
  528.  rts 
  529.  
  530.  
  531. CLRTWEENSCRN:
  532.  move.l TEXTSCRN,a0
  533.  move.w #(10240/16)-1,d0
  534.  move.l #$0,d1
  535. .lll
  536.  move.l d1,(a0)+
  537.  move.l d1,(a0)+
  538.  move.l d1,(a0)+
  539.  move.l d1,(a0)+
  540.  move.l d1,(a0)+
  541.  move.l d1,(a0)+
  542.  move.l d1,(a0)+
  543.  move.l d1,(a0)+
  544.  dbra d0,.lll
  545.  rts
  546.  
  547. PLAYTHEGAME:
  548.  
  549.  move.w #0,TXTCOLL
  550.  
  551.  bsr CLRTWEENSCRN
  552.  
  553.  cmp.b #'n',mors
  554.  bne.s .notext
  555.  bsr TWEENTEXT
  556. .notext
  557.  
  558. ;charlie 
  559. ; move.l #TEXTCOP,$dff080
  560.  
  561.  move.w #$10,d0
  562.  move.w #7,d1
  563.  
  564. ;.fdup
  565. ; move.w d0,TXTCOLL
  566. ; add.w #$121,d0
  567. ;.wtframe:
  568. ; btst #5,$dff000+intreqrl
  569. ; beq.s .wtframe
  570. ; move.w #$0020,$dff000+intreq
  571. ; dbra d1,.fdup
  572. ;
  573. ; jsr INITCOPPERSCRN
  574.  
  575. ; Get level memory.
  576.  
  577.  move.l #1,d1
  578.  move.l #50000,d0
  579.  move.l 4.w,a6
  580.  jsr -198(a6)
  581.  move.l d0,LEVELGRAPHICS
  582.  
  583.  move.l #1,d1
  584.  move.l #40000,d0
  585.  move.l 4.w,a6
  586.  jsr -198(a6)
  587.  move.l d0,LEVELCLIPS
  588.  
  589.  move.l #$dff000,a6
  590.  jsr SETPLAYERS
  591.  
  592. ; move.l #LEVELDATAD,LEVELDATA
  593. ; move.l #LEVELGRAPHICSD,LEVELGRAPHICS
  594. ; move.l #LEVELCLIPSD,LEVELCLIPS
  595.  
  596. ; bra noload
  597.  
  598. *********************************
  599.  
  600.  move.l doslib,a6
  601.  move.l #LLname,d1
  602.  move.l #1005,d2
  603.  jsr -30(a6)
  604.  move.l d0,LLhandle
  605.  
  606.  move.l doslib,a6
  607.  move.l d0,d1
  608.  move.l #LINKS,d2
  609.  move.l #10000,d3
  610.  jsr -42(a6)
  611.  
  612.  move.l doslib,a6
  613.  move.l LLhandle,d1
  614.  jsr -36(a6)
  615.  
  616.  ********************************
  617.  
  618.  move.l doslib,a6
  619.  move.l #LLFname,d1
  620.  move.l #1005,d2
  621.  jsr -30(a6)
  622.  move.l d0,LLhandle
  623.  
  624.  move.l doslib,a6
  625.  move.l d0,d1
  626.  move.l #FLYLINKS,d2
  627.  move.l #10000,d3
  628.  jsr -42(a6)
  629.  
  630.  move.l doslib,a6
  631.  move.l LLhandle,d1
  632.  jsr -36(a6)
  633.  
  634.  ********************************
  635.  
  636.  
  637.  move.l doslib,a6
  638.  move.l #LDname,d1
  639.  move.l #1005,d2
  640.  jsr -30(a6)
  641.  move.l d0,LDhandle
  642.  
  643.  move.l doslib,a6
  644.  move.l d0,d1
  645.  move.l LEVELCLIPS,d2
  646.  move.l #40000,d3
  647.  jsr -42(a6)
  648.  
  649.  move.l doslib,a6
  650.  move.l LDhandle,d1
  651.  jsr -36(a6)
  652.  
  653. *************************************
  654.     move.l    LEVELCLIPS,d0
  655.     moveq    #0,d1
  656.     move.l LEVELDATA,a0
  657.     lea    WorkSpace,a1
  658.     lea    $0,a2
  659.     jsr    unLHA
  660. *************************************
  661.  
  662. ********
  663.  
  664.  move.l doslib,a6
  665.  move.l #LGname,d1
  666.  move.l #1005,d2
  667.  jsr -30(a6)
  668.  move.l d0,LGhandle
  669.  
  670.  move.l doslib,a6
  671.  move.l d0,d1
  672.  move.l LEVELCLIPS,d2
  673.  move.l #40000,d3
  674.  jsr -42(a6)
  675.  
  676.  move.l doslib,a6
  677.  move.l LGhandle,d1
  678.  jsr -36(a6)
  679.  
  680. *************************************
  681.     move.l    LEVELCLIPS,d0
  682.     moveq    #0,d1
  683.     move.l LEVELGRAPHICS,a0
  684.     lea    WorkSpace,a1
  685.     lea    $0,a2
  686.     jsr    unLHA
  687. *************************************
  688.  
  689. ********
  690.  
  691.  move.l doslib,a6
  692.  move.l #LCname,d1
  693.  move.l #1005,d2
  694.  jsr -30(a6)
  695.  move.l d0,LChandle
  696.  
  697.  move.l doslib,a6
  698.  move.l d0,d1
  699.  move.l #WorkSpace+16384,d2
  700.  move.l #16000,d3
  701.  jsr -42(a6)
  702.  
  703.  move.l doslib,a6
  704.  move.l LChandle,d1
  705.  jsr -36(a6)
  706.  
  707. *************************************
  708.     move.l    #WorkSpace+16384,d0
  709.     moveq    #0,d1
  710.     move.l LEVELCLIPS,a0
  711.     lea    WorkSpace,a1
  712.     lea    $0,a2
  713.     jsr    unLHA
  714. *************************************
  715.  
  716.  
  717. *******
  718.  
  719. noload:
  720.  
  721. ********
  722.  
  723. ; move.l doslib,a6
  724. ; move.l #Prefsname,d1
  725. ; move.l #1005,d2
  726. ; jsr -30(a6)
  727. ; move.l d0,Prefshandle
  728.  
  729. ; move.l doslib,a6
  730. ; move.l d0,d1
  731. ; move.l #Prefsfile,d2
  732. ; move.l #50,d3
  733. ; jsr -42(a6)
  734.  
  735. ; move.l doslib,a6
  736. ; move.l Prefshandle,d1
  737. ; jsr -36(a6)
  738.  
  739. *******
  740.  
  741.  IFNE CD32VER
  742.  move.l doslib,a6
  743.  move.l #115,d1
  744.  jsr -198(a6)
  745.  ENDC
  746.  
  747.  
  748. ; move.l doslib,d0
  749. ; move.l d0,a1
  750. ; move.l 4.w,a6
  751. ; jsr CloseLib(a6)
  752.  
  753.  move.l #$dff000,a6
  754.  
  755. charlie:
  756. ; jmp  ENDGAMESCROLL
  757.  
  758.     move.w #$87c0,dmacon(a6)
  759.  
  760.     move.w    #%1000000000100000,dmacon(a6)
  761.  
  762. ; move.w intenar(a6),saveinters
  763.     
  764. ;    move.w #%00001111,intena(a6)
  765.  
  766.     move.w #255,adkcon(a6)
  767.  
  768.  
  769. *** Put myself in supervisor mode
  770.  
  771.  bra blag
  772. ; move.l $6c,d0
  773. ; move.l #blag,$6c
  774. ; move.w #$8010,intreq(a6)
  775.  
  776.  rts
  777.  
  778. saveit: ds.l 10
  779. doslibname: dc.b 'dos.library',0
  780.  even
  781. doslib: dc.l 0
  782.  
  783. mors: dc.w 0
  784.  
  785. LDname: dc.b 'ab3d2:levels/level_'
  786. LEVA:
  787.  dc.b 'a/twolev.bin',0
  788.  even
  789. LDhandle: dc.l 0
  790. LGname: dc.b 'ab3d2:levels/level_'
  791. LEVB:
  792.  dc.b 'a/twolev.graph.bin',0
  793.  even
  794. LGhandle: dc.l 0
  795. LCname: dc.b 'ab3d2:levels/level_'
  796. LEVC:
  797.  dc.b 'a/twolev.clips',0
  798.  even
  799. LChandle: dc.l 0
  800. LLname: dc.b 'ab3d2:levels/level_'
  801. LEVD:
  802.  dc.b 'a/twolev.map',0
  803.  even
  804. LLhandle: dc.l 0
  805. LLFname: dc.b 'ab3d2:levels/level_'
  806. LEVE:
  807.  dc.b 'a/twolev.FLYmap',0
  808.  even
  809.  
  810.     cnop    0,4
  811.  
  812. Prefsname: dc.b 'ram:prefs',0
  813.  even
  814. Prefshandle: dc.l 0
  815.  
  816. Prefsfile:
  817.  dc.b 'k4nx'
  818.  ds.b 50
  819.  
  820.  even
  821.  
  822.  cnop 0,4
  823.  
  824. VBLANKInt
  825.  dc.l 0,0
  826.  dc.b NT_INTERRUPT,9
  827.  dc.l Prefsname
  828.  dc.l 0
  829.  dc.l Chan0inter
  830.  
  831.  
  832. KEYInt
  833.  dc.l 0,0
  834.  dc.b NT_INTERRUPT,127
  835.  dc.l Prefsname
  836.  dc.l 0
  837.  dc.l key_interrupt
  838.  
  839.  
  840. blag:
  841. ; move.w #$10,intreq(a6)
  842. ; move.l d0,$6c
  843. ; move.w #$7fff,intena(a6)
  844.  
  845. ; move.w #$20,$dff1dc
  846.  
  847. ; move.l 4.w,a6
  848. ; lea VBLANKInt(pc),a1
  849. ; moveq #INTB_VERTB,d0
  850. ; jsr _LVOAddIntServer(a6)
  851.  
  852. ****************************
  853. * Initialize level
  854. ****************************
  855. * Poke all clip offsets into
  856. * correct bit of level data.
  857. ****************************
  858.  move.l LEVELGRAPHICS,a0
  859.  move.l 12(a0),a1
  860.  add.l a0,a1
  861.  move.l a1,ZoneGraphAdds
  862.  move.l (a0),a1
  863.  add.l a0,a1
  864.  move.l a1,DoorData
  865.  move.l 4(a0),a1
  866.  add.l a0,a1
  867.  move.l a1,LiftData
  868.  move.l 8(a0),a1
  869.  add.l a0,a1
  870.  move.l a1,SwitchData
  871.  adda.w #16,a0
  872.  move.l a0,ZoneAdds
  873.  
  874.  move.l LEVELDATA,a4
  875.  lea 160*10(a4),a1
  876.  
  877.  lea 54(a1),a2
  878.  move.l a2,CPtPos
  879.  move.w 12(a1),NumCPts
  880.  move.w 14(a1),NumLevPts
  881.  
  882.  move.l 16+6(a1),a2
  883.  add.l a4,a2
  884.  move.l a2,Points
  885.  move.w 8+6(a1),d0
  886.  lea 4(a2,d0.w*4),a2
  887.  move.l a2,PointBrights
  888.  move.w 16(a1),d0
  889.  addq #1,d0
  890.  muls #80,d0
  891.  add.l d0,a2
  892.  move.l a2,ZoneBorderPts
  893.  
  894.  move.l 20+6(a1),a2
  895.  add.l a4,a2
  896.  move.l a2,FloorLines
  897.  
  898.  move.l 24+6(a1),a2
  899.  add.l a4,a2
  900.  move.l a2,ObjectData
  901. *****************************************
  902. * Just for charles
  903.  
  904. ; move.w #$6060,6(a2)
  905. ; move.l #$d0000,8(a2)
  906. ; sub.w #40,4(a2)
  907. ; move.w #45*256+45,14(a2)
  908. ****************************************
  909.  move.l 28+6(a1),a2
  910.  add.l a4,a2
  911.  move.l a2,PlayerShotData
  912.  move.l 32+6(a1),a2
  913.  add.l a4,a2
  914.  move.l a2,NastyShotData
  915.  
  916.  add.l #64*20,a2
  917.  move.l a2,OtherNastyData
  918.  
  919.  move.l 36+6(a1),a2
  920.  add.l a4,a2
  921.  move.l a2,ObjectPoints  
  922.  move.l 40+6(a1),a2
  923.  add.l a4,a2
  924.  move.l a2,PLR1_Obj
  925.  move.l 44+6(a1),a2
  926.  add.l a4,a2
  927.  move.l a2,PLR2_Obj
  928.  move.w 14+6(a1),NumObjectPoints
  929.  
  930. ; bra noclips
  931.   
  932.  move.l LEVELCLIPS,a2
  933.  moveq #0,d0
  934.  move.w 10+6(a1),d7    ;numzones
  935.  move.w d7,NUMZONES
  936. assignclips:
  937.  move.l (a0)+,a3
  938.  add.l a4,a3    ; pointer to a zone
  939.  adda.w #ToListOfGraph,a3 ; pointer to zonelist
  940. dowholezone:
  941.  tst.w (a3)
  942.  blt.s nomorethiszone
  943.  tst.w 2(a3)
  944.  blt.s thisonenull
  945.  
  946.  move.l d0,d1
  947.  asr.l #1,d1
  948.  move.w d1,2(a3)
  949.  
  950. findnextclip:
  951.  cmp.w #-2,(a2,d0.l)
  952.  beq.s foundnextclip
  953.  addq.l #2,d0
  954.  bra.s findnextclip
  955. foundnextclip
  956.  addq.l #2,d0
  957.  
  958. thisonenull:
  959.  addq #8,a3 
  960.  bra.s dowholezone
  961. nomorethiszone:
  962.  dbra d7,assignclips
  963.  
  964.  lea (a2,d0.l),a2
  965.  move.l a2,CONNECT_TABLE
  966.  
  967. noclips:
  968.  
  969. * Put in addresses of glowything
  970.  
  971.  
  972. ************************************
  973.  
  974. ; cmp.b #'k',Prefsfile
  975. ; bne.s nkb
  976.  
  977. ;nkb:
  978. ; cmp.b #'m',Prefsfile
  979. ; bne.s nmc
  980. ; clr.b PLR1KEYS
  981. ; clr.b PLR1PATH
  982. ; st PLR1MOUSE
  983. ; clr.b PLR1JOY
  984. ;nmc:
  985. ; cmp.b #'j',Prefsfile
  986. ; bne.s njc
  987. ; clr.b PLR1KEYS
  988. ; clr.b PLR1PATH
  989. ; clr.b PLR1MOUSE
  990. ; st PLR1JOY
  991. ;njc:
  992.  
  993.  clr.b PLR1_StoodInTop
  994.  move.l #playerheight,PLR1s_height
  995.  
  996.  move.l #empty,pos1LEFT
  997.  move.l #empty,pos2LEFT
  998.  move.l #empty,pos1RIGHT
  999.  move.l #empty,pos2RIGHT
  1000.  move.l #empty,pos0LEFT
  1001.  move.l #empty,pos3LEFT
  1002.  move.l #empty,pos0RIGHT
  1003.  move.l #empty,pos3RIGHT
  1004.  move.l #emptyend,Samp0endLEFT
  1005.  move.l #emptyend,Samp1endLEFT
  1006.  move.l #emptyend,Samp0endRIGHT
  1007.  move.l #emptyend,Samp1endRIGHT
  1008.  move.l #emptyend,Samp2endLEFT
  1009.  move.l #emptyend,Samp3endLEFT
  1010.  move.l #emptyend,Samp2endRIGHT
  1011.  move.l #emptyend,Samp3endRIGHT
  1012.  
  1013.  
  1014.  move.l #nullline,d0
  1015.  move.w d0,n1l
  1016.  swap d0
  1017.  move.w d0,n1h
  1018.  
  1019.  move.l Panel,d0
  1020.  move.w d0,p1l
  1021.  swap d0
  1022.  move.w d0,p1h
  1023.  swap d0
  1024.  add.l #40,d0
  1025.  move.w d0,p2l
  1026.  swap d0
  1027.  move.w d0,p2h
  1028.  swap d0
  1029.  add.l #40,d0
  1030.  move.w d0,p3l
  1031.  swap d0
  1032.  move.w d0,p3h
  1033.  swap d0
  1034.  add.l #40,d0
  1035.  move.w d0,p4l
  1036.  swap d0
  1037.  move.w d0,p4h
  1038.  swap d0
  1039.  add.l #40,d0
  1040.  move.w d0,p5l
  1041.  swap d0
  1042.  move.w d0,p5h
  1043.  swap d0
  1044.  add.l #40,d0
  1045.  move.w d0,p6l
  1046.  swap d0
  1047.  move.w d0,p6h
  1048.  swap d0
  1049.  add.l #40,d0
  1050.  move.w d0,p7l
  1051.  swap d0
  1052.  move.w d0,p7h
  1053.  swap d0
  1054.  add.l #40,d0
  1055.  move.w d0,p8l
  1056.  swap d0
  1057.  move.w d0,p8h
  1058.  
  1059. *******************************
  1060. * TIMER SCREEN SETUP
  1061. ; move.l #TimerScr,d0
  1062. ; move.w d0,p1l
  1063. ; swap d0
  1064. ; move.w d0,p1h
  1065. ; move.w #$1201,Panelcon
  1066.  
  1067.  move.l #borders,d0
  1068.  move.w d0,s0l
  1069.  swap d0
  1070.  move.w d0,s0h
  1071.  move.l #borders+2592,d0
  1072.  move.w d0,s1l
  1073.  swap d0
  1074.  move.w d0,s1h
  1075.  move.l #borders+2592*2,d0
  1076.  move.w d0,s2l
  1077.  swap d0
  1078.  move.w d0,s2h
  1079.  move.l #borders+2592*3,d0
  1080.  move.w d0,s3l
  1081.  swap d0
  1082.  move.w d0,s3h
  1083.  
  1084.  move.l #nullspr,d0
  1085.  move.w d0,s0l
  1086.  move.w d0,s1l
  1087.  move.w d0,s2l
  1088.  move.w d0,s3l
  1089.  
  1090.  move.w d0,s4l
  1091.  move.w d0,s5l
  1092.  move.w d0,s6l
  1093.  move.w d0,s7l
  1094.  swap d0
  1095.  
  1096.  move.w d0,s0h
  1097.  move.w d0,s1h
  1098.  move.w d0,s2h
  1099.  move.w d0,s3h
  1100.  
  1101.  move.w d0,s4h
  1102.  move.w d0,s5h
  1103.  move.w d0,s6h
  1104.  move.w d0,s7h 
  1105.  
  1106.  
  1107.  move.w #52*256+64,borders
  1108.  move.w #212*256+0,borders+8
  1109.  move.w #52*256+64,borders+2592
  1110.  move.w #212*256+128,borders+8+2592
  1111.  move.w #52*256+192,borders+2592*2
  1112.  move.w #212*256+0,borders+8+2592*2
  1113.  move.w #52*256+192,borders+2592*3
  1114.  move.w #212*256+128,borders+8+2592*3
  1115.  
  1116.   
  1117.  
  1118. ; move.l #bigfield,d0
  1119. ; move.w d0,ocl
  1120. ; swap d0
  1121. ; move.w d0,och
  1122.  
  1123.  bset.b #1,$bfe001
  1124.  
  1125. ; jmp stuff
  1126. ;endstuff:
  1127.  
  1128.  move.w #$00ff,$dff09e
  1129.  
  1130. ; move.l #Blurbfield,$dff080
  1131.  
  1132.  move.w #0,d0
  1133.  
  1134.  
  1135.  
  1136. ****************************
  1137.  jsr INITPLAYER
  1138. ; bsr initobjpos
  1139. ****************************
  1140.  
  1141.  
  1142.  move.l #$dff000,a6
  1143.  
  1144.  move.l #null,$dff0a0
  1145.  move.w #100,$dff0a4
  1146.  move.w #443,$dff0a6
  1147.  move.w #63,$dff0a8
  1148.  
  1149.  move.l #null2,$dff0b0
  1150.  move.w #100,$dff0b4
  1151.  move.w #443,$dff0b6
  1152.  move.w #63,$dff0b8
  1153.  
  1154.  move.l #null4,$dff0c0
  1155.  move.w #100,$dff0c4
  1156.  move.w #443,$dff0c6
  1157.  move.w #63,$dff0c8
  1158.  
  1159.  move.l #null3,$dff0d0
  1160.  move.w #100,$dff0d4
  1161.  move.w #443,$dff0d6
  1162.  move.w #63,$dff0d8
  1163.  
  1164.  move.l #tab,a1
  1165.  move.w #64,d7
  1166.  move.w #0,d6
  1167. outerlop
  1168.  move.l #pretab,a0
  1169.  move.w #255,d5
  1170. scaledownlop:
  1171.  move.b (a0)+,d0
  1172.  ext.w d0
  1173.  ext.l d0
  1174.  muls d6,d0
  1175.  asr.l #6,d0
  1176.  move.b d0,(a1)+
  1177.  dbra d5,scaledownlop
  1178.  addq #1,d6
  1179.  dbra d7,outerlop
  1180.  
  1181.  move.l #$dff000,a6
  1182.  
  1183.  move.w #$c018,intena(a6)
  1184.  
  1185.  move.w #$f,dmacon(a6)
  1186.  move.w #$820f,dmacon(a6)
  1187.  
  1188. ; bsr protinit
  1189.  
  1190.  
  1191. ; move.w #$20,$1dc(a6)
  1192.  
  1193.  move.w #$0,$dff034
  1194.  move.w #0,Conditions
  1195.  
  1196.  cmp.b #'n',mors
  1197.  beq.s .nokeys
  1198.  move.w #%111111111111,Conditions
  1199. .nokeys:
  1200.  
  1201.  move.l #KeyMap,a5
  1202.  clr.b $45(a5)
  1203.  
  1204.  move.l #ingame,mt_data
  1205.  clr.b UseAllChannels
  1206.  
  1207. ; cmp.b #'b',Prefsfile+3
  1208. ; bne.s .noback
  1209. ; jsr mt_init
  1210. ;.noback:
  1211. ;
  1212. ; clr.b CHANNELDATA
  1213. ; clr.b CHANNELDATA+8
  1214. ; clr.b CHANNELDATA+16
  1215. ; clr.b CHANNELDATA+24
  1216. ;
  1217. ; cmp.b #'b',Prefsfile+3
  1218. ; bne.s noreserve
  1219. ;
  1220. ; st CHANNELDATA
  1221. ; st CHANNELDATA+8
  1222. ; st CHANNELDATA+16
  1223. ; st CHANNELDATA+24
  1224. ;noreserve: 
  1225.  
  1226. ; st CHANNELDATA
  1227. ; st CHANNELDATA+8
  1228.  
  1229.  move.l SampleList+6*8,pos0LEFT
  1230.  move.l SampleList+6*8+4,Samp0endLEFT
  1231.  move.l #playerheight,PLR1s_targheight
  1232.  move.l #playerheight,PLR1s_height
  1233.  move.l #playerheight,PLR2s_targheight
  1234.  move.l #playerheight,PLR2s_height
  1235.  
  1236. ; cmp.b #'n',mors
  1237. ; beq.s nohandshake
  1238. ;
  1239. ; move.b #%11011000,$bfd200
  1240. ; move.b #%00010000,$bfd000
  1241. ;waitloop:
  1242. ; btst.b #4,$bfd000
  1243. ; bne.s waitloop
  1244. ; move.b #%11000000,$bfd200
  1245.  
  1246. ;wtmouse:
  1247. ; btst #6,$bfe001
  1248. ; bne.s wtmouse
  1249.  
  1250. ;nohandshake:
  1251.  
  1252. ; jmp end
  1253.  
  1254. ; move.l COPSCRN1,drawpt
  1255. ; move.l COPSCRN2,olddrawpt
  1256.  
  1257.  jsr CLEARKEYBOARD
  1258. ; jsr MAKEBACKROUT
  1259.  
  1260.  clr.b MASTERQUITTING
  1261.  
  1262.  cmp.b #'n',mors
  1263.  seq SLAVEQUITTING
  1264.  
  1265.  move.w #127,PLR2_energy
  1266.  
  1267.  
  1268. ; move.l #ANOTHERSUP,$80
  1269. ; trap #0
  1270. ; rts
  1271. ;
  1272. ;ANOTHERSUP:
  1273.  
  1274. ; move.l $4.w,a6
  1275. ; jsr _LVOSuperState(a6)
  1276. ; move.l d0,SSTACK
  1277.  
  1278. ; CACHE_FREEZE_OFF d2
  1279.  
  1280. ; charlie
  1281. ; DATA_CACHE_ON d2
  1282.  
  1283. ; DataCacheOn
  1284.  
  1285. ; move.l $4.w,a6
  1286. ; move.l SSTACK,d0
  1287. ; jsr _LVOUserState(a6)
  1288.  
  1289.  move.l #0,hitcol
  1290.  
  1291.  cmp.b #'n',mors
  1292.  bne.s NOCLTXT
  1293.  
  1294. ; move.b #0,lastpressed
  1295. ;.wtpress
  1296. ; btst #6,$bfe001
  1297. ; beq.s CLOSETXT
  1298. ; btst #7,$bfe001
  1299. ; beq.s CLOSETXT
  1300. ; tst.b lastpressed
  1301. ; beq.s .wtpress
  1302.  
  1303. CLOSETXT:
  1304.  
  1305.  move.w #$8f8,d0
  1306.  move.w #7,d1
  1307.  
  1308. .fdup
  1309.  move.w d0,TXTCOLL
  1310.  sub.w #$121,d0
  1311. .wtframe:
  1312. ; btst #5,$dff000+intreqrl
  1313. ; beq.s .wtframe
  1314. ; move.w #$0020,$dff000+intreq
  1315.  dbra d1,.fdup
  1316.  
  1317.  move.w #0,TXTCOLL
  1318.  
  1319. NOCLTXT:
  1320.  
  1321.  
  1322.  
  1323.     move.l    4.w,a6
  1324.     jsr    _LVOForbid(a6)
  1325. ;    jsr    _LVODisable(a6)
  1326.  
  1327.  
  1328. ;    move.w    #%0111111111111111,intena+$dff000
  1329. ;    move.w    #%1000000011111111,intena+$dff000
  1330.  
  1331.  
  1332. ;charlie 
  1333. ; move.l #PALETTEBIT,$dff084
  1334. ; move.l #bigfield,$dff080    ; Point the copper at our copperlist.
  1335.  
  1336.  
  1337.  clr.b PLR1_Ducked
  1338.  clr.b PLR2_Ducked
  1339.  clr.b p1_ducked
  1340.  clr.b p2_ducked
  1341.  
  1342. ********************************************
  1343.  
  1344. ;    jmp docredits
  1345.  
  1346. ********************************************
  1347.  
  1348.  
  1349.  st doanything
  1350.  st dosounds
  1351.  
  1352.  jsr CLRNASTYMEM
  1353.  
  1354.  move.l #COMPACTMAP,a0
  1355.  move.l a0,LASTZONE
  1356.  move.w #255,d0
  1357. .clrmap
  1358.  move.l #0,(a0)+
  1359.  dbra d0,.clrmap
  1360.  
  1361.  move.l #COMPACTMAP,a0
  1362.  move.l #BIGMAP,a1
  1363.  
  1364.  bra NOALLWALLS
  1365.  
  1366.  move.l ZoneGraphAdds,a2
  1367. DOALLWALLS:
  1368.  move.l (a2),d0
  1369.  beq.s nomorezones
  1370.  move.l d0,a3
  1371.  
  1372.  addq #8,a2
  1373.  
  1374.  add.l LEVELGRAPHICS,a3
  1375.  addq #2,a3
  1376.  move.l a1,a4
  1377.  
  1378. ; DOLOWERROOM
  1379.  
  1380. innerwalls:
  1381.  move.b (a3),d1
  1382.  move.b 1(a3),d0
  1383.  bne doneinner
  1384.  
  1385.  tst.b d1
  1386.  blt noid
  1387.  
  1388.  move.b d1,d3
  1389.  and.w #15,d1
  1390.  
  1391.  moveq #0,d0
  1392.  move.w d1,d2
  1393.  add.w d1,d1
  1394.  add.w d2,d1
  1395.  addq #1,d1
  1396.  bset d1,d0
  1397.  btst #4,d3
  1398.  beq.s .nodoor
  1399.  addq #1,d1
  1400.  bset d1,d0
  1401. .nodoor
  1402.  
  1403.  or.l d0,(a0)
  1404.  
  1405.  move.w 2(a3),(a4)
  1406.  move.w 4(a3),2(a4)
  1407.  
  1408. noid:
  1409.  
  1410.  add.w #30,a3
  1411.  addq #4,a4
  1412.  
  1413.  bra innerwalls
  1414.  
  1415. doneinner:
  1416.  
  1417.  add.w #40,a1
  1418.  addq #4,a0
  1419.  
  1420.  bra DOALLWALLS
  1421. nomorezones:
  1422.  
  1423. NOALLWALLS
  1424.  
  1425.  move.w #96,MIDDLEX
  1426.  move.w #192,RIGHTX
  1427.  move.w #160,BOTTOMY
  1428.  move.w #80,TOTHEMIDDLE
  1429.  clr.b FULLSCR
  1430. **************************************
  1431.  clr.b PLR1KEYS
  1432.  clr.b PLR1PATH
  1433.  clr.b PLR1MOUSE
  1434.  st PLR1JOY
  1435.  
  1436. **************************************
  1437. lop:
  1438.  
  1439.  move.b #1,PLR1_GunSelected
  1440.  
  1441. ; btst #6,$bfe001
  1442. ;charlie bne.b .nocop
  1443.  
  1444. ;charlie move.l #bigfield,$dff080    ; Point the copper at our copperlist.
  1445.  
  1446. .nocop
  1447.  
  1448.  move.l #KeyMap,a5
  1449.  
  1450.  cmp.b #'n',mors
  1451.  bne .nopause
  1452.  tst.b $19(a5)
  1453.  beq.s .nopause
  1454.  clr.b doanything
  1455.  
  1456. .waitrel:
  1457.  
  1458.  tst.b PLR1JOY
  1459.  beq.s .NOJOY
  1460.  jsr _ReadJoy1
  1461. .NOJOY
  1462.  
  1463.  tst.b $19(a5)
  1464.  bne.s .waitrel
  1465.  
  1466.  bsr PAUSEOPTS
  1467.  
  1468.  
  1469.  st doanything
  1470. .nopause: 
  1471.  
  1472. ; move.l hitcol,d0
  1473. ; move.l d0,d1
  1474. ; add.l #PALETTEBIT,d1
  1475. ; move.l d1,$dff084
  1476. ; tst.l d0
  1477. ; beq.s nofadedownhc
  1478. ; sub.l #2116,d0
  1479. ; move.l d0,hitcol
  1480. nofadedownhc:
  1481.  
  1482.  st READCONTROLS
  1483.  move.l #$dff000,a6
  1484.  
  1485.  
  1486.  cmp.b #'n',mors
  1487.  beq .nopause
  1488.  
  1489.  move.b SLAVEPAUSE,d0
  1490.  or.b MASTERPAUSE,d0
  1491.  beq.s .nopause
  1492.  clr.b doanything
  1493.  
  1494.  move.l #KeyMap,a5
  1495. .waitrel:
  1496.  
  1497.  cmp.b #'s',mors
  1498.  beq.s .RE2
  1499.  tst.b PLR1JOY
  1500.  beq.s .NOJOY
  1501.  jsr _ReadJoy1
  1502.  bra .RE1
  1503. .RE2:
  1504.  tst.b PLR2JOY
  1505.  beq.s .NOJOY
  1506.  jsr _ReadJoy2
  1507. .RE1
  1508. .NOJOY:
  1509.  tst.b $19(a5)
  1510.  bne.s .waitrel
  1511.  
  1512.  bsr PAUSEOPTS
  1513.  
  1514.  cmp.b #'m',mors
  1515.  bne.s .slavelast
  1516.  Jsr SENDFIRST
  1517.  bra .masfirst
  1518. .slavelast
  1519.  Jsr RECFIRST
  1520. .masfirst:
  1521.  clr.b SLAVEPAUSE
  1522.  clr.b MASTERPAUSE
  1523.  st doanything
  1524.  
  1525. .nopause: 
  1526.  
  1527.  movem.l d0-d7/a0-a6,-(a7)
  1528.  move.w #256,COPIEDPAL
  1529.  move.w #0,COPIEDPAL+2
  1530. LOOKFORME:
  1531.  move.l MyScreen,a0
  1532.  lea sc_ViewPort(a0),a0
  1533.  move.l #COPIEDPAL,a1
  1534.  move.l _GfxBase,a6
  1535.  jsr -$372(a6)
  1536.  movem.l (a7)+,d0-d7/a0-a6
  1537.  
  1538.  move.l BMPtr,d0
  1539.  move.l BMPtr2,BMPtr
  1540.  move.l d0,BMPtr2
  1541.  
  1542.  move.l BMPtr2,a1
  1543.  addq #8,a1
  1544.  
  1545.  move.l MyScreen,a0
  1546.  lea sc_BitMap(a0),a0
  1547.  lea bm_Planes(a0),a0
  1548.  move.l (a1)+,(a0)+
  1549.  move.l (a1)+,(a0)+
  1550.  move.l (a1)+,(a0)+
  1551.  move.l (a1)+,(a0)+
  1552.  move.l (a1)+,(a0)+
  1553.  move.l (a1)+,(a0)+
  1554.  move.l (a1)+,(a0)+
  1555.  move.l (a1)+,(a0)+
  1556.  
  1557.  move.l MyScreen,a0
  1558.  move.l _IntuitionBase,a6
  1559.  jsr _LVOMakeScreen(a6)
  1560.  
  1561.  move.l _IntuitionBase,a6
  1562.  jsr _LVORethinkDisplay(a6)
  1563.  
  1564. ; move.l drawpt,d0
  1565. ; move.l olddrawpt,drawpt
  1566. ; move.l d0,olddrawpt
  1567.  
  1568.  move.l SCRNDRAWPT,d0
  1569.  move.l SCRNSHOWPT,SCRNDRAWPT
  1570.  move.l d0,SCRNSHOWPT
  1571.  
  1572. ; move.l d0,$dff084    
  1573.  move.l drawpt,a3
  1574. ; move.l COPSCRNBUFF,a3
  1575.  adda.w #10,a3
  1576.  move.l a3,frompt
  1577.  add.l #104*4*40,a3
  1578.  move.l a3,midpt
  1579.  
  1580.  cmp.b #'s',mors
  1581.  beq.s nowaitslave
  1582.  
  1583. waitfortop:
  1584. ;
  1585. ; btst.b #0,intreqrl(a6)
  1586. ; beq.b waitfortop
  1587.  
  1588. ; move.w #$1,intreq(a6)
  1589.  move.l #PLR1_GunData,GunData
  1590.  move.b PLR1_GunSelected,GunSelected
  1591.  bra waitmaster
  1592.  
  1593. nowaitslave:
  1594.  move.l #PLR2_GunData,GunData
  1595.  move.b PLR2_GunSelected,GunSelected
  1596. waitmaster:
  1597.  
  1598.  move.l #SMIDDLEY,a0
  1599.  movem.l (a0)+,d0/d1
  1600.  move.l d0,MIDDLEY
  1601.  move.l d1,MIDDLEY+4
  1602.  
  1603.  move.l waterpt,a0
  1604.  move.l (a0)+,watertouse
  1605.  cmp.l #endwaterlist,a0
  1606.  blt.s okwat
  1607.  move.l #waterlist,a0
  1608. okwat:
  1609.  move.l a0,waterpt
  1610.  
  1611.  add.w #640,wtan
  1612.  and.w #8191,wtan
  1613.  add.l #1,wateroff
  1614.  and.l #$3fff3fff,wateroff
  1615.  
  1616.  moveq #0,d0
  1617.  move.b GunSelected,d0
  1618.  move.l #PLAYERONEAMMO,a6
  1619.  move.w (a6,d0.w*2),d0
  1620.  asr.w #3,d0
  1621.  move.w d0,Ammo
  1622.  
  1623.  move.l PLR1_xoff,OLDX1
  1624.  move.l PLR1_zoff,OLDZ1
  1625.  move.l PLR2_xoff,OLDX2
  1626.  move.l PLR2_zoff,OLDZ2
  1627.  
  1628.  move.l #$dff000,a6
  1629.  
  1630.  cmp.b #'s',mors
  1631.  beq ASlaveShouldWaitOnHisMaster
  1632.  
  1633.  cmp.b #'n',mors
  1634.  bne NotOnePlayer
  1635.  
  1636.  move.w PLR1_energy,Energy
  1637.  move.w FramesToDraw,TempFrames
  1638.  cmp.w #15,TempFrames
  1639.  blt.s .okframe
  1640.  move.w #15,TempFrames
  1641. .okframe:
  1642.  move.w #0,FramesToDraw
  1643.  
  1644. *********************************************
  1645. *********** TAKE THIS OUT *******************
  1646. *********************************************
  1647.  
  1648.  move.l CHEATPTR,a4
  1649.  add.l #200000,a4
  1650.  moveq #0,d0
  1651.  move.b (a4),d0
  1652.  
  1653.  move.l #KeyMap,a5
  1654.  tst.b (a5,d0.w)
  1655.  beq.s .nocheat
  1656.  
  1657.  addq #1,a4
  1658.  cmp.l #ENDCHEAT,a4
  1659.  blt.s .nocheat
  1660.  cmp.w #0,CHEATNUM
  1661.  beq.s .nocheat
  1662.  sub.w #1,CHEATNUM
  1663.  move.l #CHEATFRAME,a4
  1664.  move.w #127,PLR1_energy
  1665.  bsr EnergyBar
  1666. .nocheat
  1667.  
  1668.  sub.l #200000,a4
  1669.  move.l a4,CHEATPTR
  1670.  
  1671. **********************************************
  1672. **********************************************
  1673. **********************************************
  1674.  
  1675.  move.l PLR1s_xoff,p1_xoff
  1676.  move.l PLR1s_zoff,p1_zoff
  1677.  move.l PLR1s_yoff,p1_yoff
  1678.  move.l PLR1s_height,p1_height
  1679.  move.w PLR1s_angpos,p1_angpos
  1680.  move.w PLR1_bobble,p1_bobble
  1681.  move.b PLR1_clicked,p1_clicked
  1682.  move.b PLR1_fire,p1_fire
  1683.  clr.b PLR1_clicked
  1684.  move.b PLR1_SPCTAP,p1_spctap
  1685.  clr.b PLR1_SPCTAP
  1686.  move.b PLR1_Ducked,p1_ducked
  1687.  move.b PLR1_GunSelected,p1_gunselected
  1688.  
  1689.  bsr PLR1_Control
  1690.  
  1691.  move.l PLR1_Roompt,a0
  1692.  move.l ToZoneRoof(a0),SplitHeight
  1693.  move.w p1_xoff,THISPLRxoff
  1694.  move.w p1_zoff,THISPLRzoff
  1695.  
  1696.  
  1697.  move.l #$60000,p2_yoff
  1698.  move.l PLR2_Obj,a0
  1699.  move.w #-1,GraphicRoom(a0)
  1700.  move.w #-1,12(a0)
  1701.  move.b #0,17(a0)
  1702.  move.l #BollocksRoom,PLR2_Roompt
  1703.  
  1704.  bra donetalking
  1705.  
  1706. NotOnePlayer:
  1707.  move.l #KeyMap,a5
  1708.  tst.b $19(a5)
  1709.  sne MASTERPAUSE
  1710.  
  1711. *********************************
  1712.  move.w PLR1_energy,Energy
  1713. ; change this back
  1714. *********************************
  1715.  
  1716.  jsr SENDFIRST
  1717.  
  1718.  move.w FramesToDraw,TempFrames
  1719.  cmp.w #15,TempFrames
  1720.  blt.s .okframe
  1721.  move.w #15,TempFrames
  1722. .okframe:
  1723.  move.w #0,FramesToDraw
  1724.  
  1725.  move.l PLR1s_xoff,p1_xoff
  1726.  move.l PLR1s_zoff,p1_zoff
  1727.  move.l PLR1s_yoff,p1_yoff
  1728.  move.l PLR1s_height,p1_height
  1729.  move.w PLR1s_angpos,p1_angpos
  1730.  move.w PLR1_bobble,p1_bobble
  1731.  move.b PLR1_clicked,p1_clicked
  1732.  clr.b PLR1_clicked
  1733.  move.b PLR1_fire,p1_fire
  1734.  move.b PLR1_SPCTAP,p1_spctap
  1735.  clr.b PLR1_SPCTAP
  1736.  move.b PLR1_Ducked,p1_ducked
  1737.  move.b PLR1_GunSelected,p1_gunselected
  1738.  
  1739.  move.l p1_xoff,d0
  1740.  jsr SENDFIRST
  1741.  move.l d0,p2_xoff
  1742.  
  1743.  move.l p1_zoff,d0
  1744.  jsr SENDFIRST
  1745.  move.l d0,p2_zoff 
  1746.  
  1747.  move.l p1_yoff,d0
  1748.  jsr SENDFIRST
  1749.  move.l d0,p2_yoff
  1750.   
  1751.  move.l p1_height,d0
  1752.  jsr SENDFIRST
  1753.  move.l d0,p2_height
  1754.  
  1755.  move.w p1_angpos,d0
  1756.  swap d0
  1757.  move.w p1_bobble,d0
  1758.  jsr SENDFIRST
  1759.  move.w d0,p2_bobble
  1760.  swap d0
  1761.  move.w d0,p2_angpos
  1762.  
  1763.  
  1764.  move.w TempFrames,d0
  1765.  swap d0
  1766.  move.b p1_spctap,d0
  1767.  lsl.w #8,d0
  1768.  move.b p1_clicked,d0
  1769.  jsr SENDFIRST
  1770.  move.b d0,p2_clicked
  1771.  lsr.w #8,d0
  1772.  move.b d0,p2_spctap
  1773.  
  1774.  
  1775.  move.w Rand1,d0
  1776.  swap d0
  1777.  move.b p1_ducked,d0
  1778.  lsl.w #8,d0
  1779.  move.b p1_gunselected,d0
  1780.  jsr SENDFIRST
  1781.  move.b d0,p2_gunselected
  1782.  lsr.w #8,d0
  1783.  move.b d0,p2_ducked
  1784.  
  1785.  move.b p1_fire,d0
  1786.  lsl.w #8,d0
  1787.  move.b MASTERQUITTING,d0
  1788.  or.b d0,SLAVEQUITTING
  1789.  swap d0
  1790.  move.b MASTERPAUSE,d0
  1791.  or.b d0,SLAVEPAUSE
  1792.  jsr SENDFIRST
  1793.  or.b d0,MASTERPAUSE
  1794.  or.b d0,SLAVEPAUSE
  1795.  swap d0
  1796.  or.b d0,SLAVEQUITTING
  1797.  or.b d0,MASTERQUITTING
  1798.  lsr.w #8,d0
  1799.  move.b d0,p2_fire
  1800.  
  1801.  bsr PLR1_Control
  1802.  bsr PLR2_Control
  1803.  move.l PLR1_Roompt,a0
  1804.  move.l ToZoneRoof(a0),SplitHeight
  1805.  move.w p1_xoff,THISPLRxoff
  1806.  move.w p1_zoff,THISPLRzoff
  1807.  
  1808.  bra donetalking
  1809.  
  1810. ASlaveShouldWaitOnHisMaster:
  1811.  
  1812.  move.l #KeyMap,a5
  1813.  tst.b $19(a5)
  1814.  sne SLAVEPAUSE
  1815.  
  1816.  
  1817.  move.w PLR2_energy,Energy
  1818.  
  1819.  jsr RECFIRST
  1820.  
  1821.  move.l PLR2s_xoff,p2_xoff
  1822.  move.l PLR2s_zoff,p2_zoff
  1823.  move.l PLR2s_yoff,p2_yoff
  1824.  move.l PLR2s_height,p2_height
  1825.  move.w PLR2s_angpos,p2_angpos
  1826.  move.w PLR2_bobble,p2_bobble
  1827.  move.b PLR2_clicked,p2_clicked
  1828.  clr.b PLR2_clicked
  1829.  move.b PLR2_fire,p2_fire
  1830.  move.b PLR2_SPCTAP,p2_spctap
  1831.  clr.b PLR2_SPCTAP
  1832.  move.b PLR2_Ducked,p2_ducked
  1833.  move.b PLR2_GunSelected,p2_gunselected
  1834.  
  1835.  move.l p2_xoff,d0
  1836.  jsr RECFIRST
  1837.  move.l d0,p1_xoff
  1838.  
  1839.  move.l p2_zoff,d0
  1840.  jsr RECFIRST
  1841.  move.l d0,p1_zoff
  1842.  
  1843.  move.l p2_yoff,d0
  1844.  jsr RECFIRST
  1845.  move.l d0,p1_yoff
  1846.  
  1847.  move.l p2_height,d0
  1848.  jsr RECFIRST
  1849.  move.l d0,p1_height
  1850.  
  1851.  move.w p2_angpos,d0
  1852.  swap d0
  1853.  move.w p2_bobble,d0
  1854.  jsr RECFIRST
  1855.  move.w d0,p1_bobble
  1856.  swap d0
  1857.  move.w d0,p1_angpos
  1858.  
  1859.  
  1860.  move.b p2_spctap,d0
  1861.  lsl.w #8,d0
  1862.  move.b p2_clicked,d0
  1863.  jsr RECFIRST
  1864.  move.b d0,p1_clicked
  1865.  lsr.w #8,d0
  1866.  move.b d0,p1_spctap
  1867.  swap d0
  1868.  move.w d0,TempFrames
  1869.  
  1870.  
  1871.  move.b p2_ducked,d0
  1872.  lsl.w #8,d0
  1873.  move.b p2_gunselected,d0
  1874.  jsr RECFIRST
  1875.  move.b d0,p1_gunselected
  1876.  lsr.w #8,d0
  1877.  move.b d0,p1_ducked
  1878.  swap d0
  1879.  move.w d0,Rand1
  1880.  
  1881.  move.b p2_fire,d0
  1882.  lsl.w #8,d0
  1883.  move.b SLAVEQUITTING,d0
  1884.  or.b d0,MASTERQUITTING
  1885.  swap d0
  1886.  move.b SLAVEPAUSE,d0
  1887.  or.b d0,MASTERPAUSE
  1888.  jsr RECFIRST
  1889.  or.b d0,MASTERPAUSE
  1890.  or.b d0,SLAVEPAUSE
  1891.  swap d0
  1892.  or.b d0,SLAVEQUITTING
  1893.  or.b d0,MASTERQUITTING
  1894.  lsr.w #8,d0
  1895.  move.b d0,p1_fire
  1896.  
  1897.  
  1898.  bsr PLR1_Control
  1899.  bsr PLR2_Control
  1900.  move.w p2_xoff,THISPLRxoff
  1901.  move.w p2_zoff,THISPLRzoff
  1902.  move.l PLR2_Roompt,a0
  1903.  move.l ToZoneRoof(a0),SplitHeight
  1904.  
  1905. donetalking:
  1906.  
  1907.  
  1908.  
  1909.  move.l #ZoneBrightTable,a1
  1910.  move.l ZoneAdds,a2
  1911.  move.l PLR2_ListOfGraphRooms,a0
  1912. ; move.l PLR2_PointsToRotatePtr,a5
  1913.  move.l a0,a5
  1914.  cmp.b #'s',mors
  1915.  beq.s doallz
  1916.  move.l PLR1_ListOfGraphRooms,a0
  1917. ; move.l PLR1_PointsToRotatePtr,a5
  1918.  move.l a0,a5 
  1919. doallz
  1920.  move.w (a0),d0
  1921.  blt.s doneallz
  1922.  add.w #8,a0
  1923.  
  1924.  move.l (a2,d0.w*4),a3
  1925.  add.l LEVELDATA,a3
  1926.  move.w ToZoneBrightness(a3),d2
  1927.  
  1928.  blt.s justbright
  1929.  move.w d2,d3
  1930.  lsr.w #8,d3
  1931.  tst.b d3
  1932.  beq.s justbright
  1933.  
  1934.  move.l #BrightAnimTable,a4
  1935.  move.w -2(a4,d3.w*2),d2
  1936.  
  1937. justbright:
  1938.  muls #32,d2
  1939.  divs #20,d2
  1940.  move.w d2,(a1,d0.w*4)
  1941.  
  1942.  move.w ToUpperBrightness(a3),d2
  1943.  
  1944.  blt.s justbright2
  1945.  move.w d2,d3
  1946.  lsr.w #8,d3
  1947.  tst.b d3
  1948.  beq.s justbright2
  1949.  
  1950.  move.l #BrightAnimTable,a4
  1951.  move.w -2(a4,d3.w*2),d2
  1952.  
  1953. justbright2:
  1954.  
  1955.  muls #32,d2
  1956.  divs #20,d2
  1957.  move.w d2,2(a1,d0.w*4)
  1958.  
  1959.  bra doallz
  1960.  
  1961. doneallz:
  1962.  
  1963.  move.l PointBrights,a2
  1964.  move.l #CurrentPointBrights,a3
  1965. justtheone:
  1966.  move.w (a5),d0
  1967.  blt whythehell
  1968.  addq #8,a5
  1969.  
  1970.  muls #40,d0
  1971.  
  1972.  move.w #39,d7
  1973.  
  1974. allinzone:
  1975.  move.w (a2,d0.w*2),d2
  1976.  
  1977.  tst.b d2
  1978.  blt.s .justbright
  1979.  move.w d2,d3
  1980.  lsr.w #8,d3
  1981.  tst.b d3
  1982.  beq.s .justbright
  1983.  
  1984.  move.w d3,d4
  1985.  and.w #$f,d3
  1986.  lsr.w #4,d4
  1987.  add.w #1,d4
  1988.  move.l #BrightAnimTable,a0
  1989.  move.w -2(a0,d3.w*2),d3
  1990.  ext.w d2
  1991.  sub.w d2,d3
  1992.  muls d4,d3
  1993.  asr.w #4,d3
  1994.  add.w d3,d2
  1995.  
  1996. .justbright:
  1997.  ext.w d2
  1998.  
  1999.  muls #31,d2
  2000.  divs #20,d2
  2001.  
  2002.  move.w d2,(a3,d0.w*2)
  2003.  addq #1,d0
  2004.  dbra d7,allinzone
  2005.  
  2006.  bra justtheone
  2007.  
  2008. whythehell:
  2009.  
  2010.  cmp.b #'n',mors
  2011.  beq nosee
  2012.  
  2013.  move.l PLR1_Roompt,FromRoom
  2014.  move.l PLR2_Roompt,ToRoom
  2015.  move.w p1_xoff,Viewerx
  2016.  move.w p1_zoff,Viewerz
  2017.  move.l p1_yoff,d0
  2018.  asr.l #7,d0
  2019.  move.w d0,Viewery
  2020.  move.w p2_xoff,Targetx
  2021.  move.w p2_zoff,Targetz
  2022.  move.l p2_yoff,d0
  2023.  asr.l #7,d0
  2024.  move.w d0,Targety
  2025.  move.b PLR1_StoodInTop,ViewerTop
  2026.  move.b PLR2_StoodInTop,TargetTop
  2027.  jsr CanItBeSeen
  2028.  
  2029.  move.l PLR1_Obj,a0
  2030.  move.b CanSee,d0
  2031.  and.b #2,d0
  2032.  move.b d0,17(a0)
  2033.  move.l PLR2_Obj,a0
  2034.  move.b CanSee,d0
  2035.  and.b #1,d0
  2036.  move.b d0,17(a0)
  2037.  
  2038. nosee:
  2039.  
  2040.  move.l PLR1_Obj,a0
  2041.  move.b #5,16(a0)
  2042.  move.l PLR2_Obj,a0
  2043.  move.b #11,16(a0)
  2044.  
  2045.  move.w TempFrames,d0
  2046.  add.w d0,p1_holddown
  2047.  cmp.w #30,p1_holddown
  2048.  blt.s oklength
  2049.  move.w #30,p1_holddown
  2050. oklength:
  2051.  
  2052.  tst.b p1_fire
  2053.  bne.s okstillheld
  2054.  sub.w d0,p1_holddown
  2055.  bge.s okstillheld
  2056.  move.w #0,p1_holddown
  2057.  
  2058. okstillheld:
  2059.  
  2060.  move.w TempFrames,d0
  2061.  add.w d0,p2_holddown
  2062.  
  2063.  cmp.w #30,p2_holddown
  2064.  blt.s oklength2
  2065.  move.w #30,p2_holddown
  2066. oklength2:
  2067.  
  2068.  
  2069.  tst.b p2_fire
  2070.  bne.s okstillheld2
  2071.  sub.w d0,p2_holddown
  2072.  bge.s okstillheld2
  2073.  move.w #0,p2_holddown
  2074. okstillheld2:
  2075.  
  2076. ***** CHECKING LIGHT *********
  2077.  
  2078. ; move.w #-20,d0
  2079. ; move.w PLR1_xoff,d1
  2080. ; move.w PLR1_zoff,d2
  2081. ; move.l PLR1_Roompt,a0
  2082. ; move.w (a0),d3
  2083. ; move.w PLR1_angpos,d4
  2084. ;
  2085. ; jsr BRIGHTENPOINTSANGLE
  2086.  
  2087. ******************************
  2088.  
  2089. ; move.l #PLR1_GunData,a1
  2090. ; move.w p1_holddown,d0
  2091. ; move.w #50,10+32*3(a1)
  2092. ; move.l #PLR2_GunData,a1
  2093. ; move.w p2_holddown,d0
  2094. ; move.w #50,10+32*3(a1)
  2095.  
  2096. ******************************************
  2097. ******************************************
  2098.  
  2099.  move.w TempFrames,d1
  2100.  bgt.s noze
  2101.  moveq #1,d1
  2102. noze:
  2103.  
  2104.  move.w PLR1_xoff,d0
  2105.  sub.w OLDX1,d0
  2106.  asl.w #4,d0
  2107.  ext.l d0
  2108.  divs d1,d0
  2109.  move.w d0,XDIFF1
  2110.  move.w PLR2_xoff,d0
  2111.  sub.w OLDX2,d0
  2112.  asl.w #4,d0
  2113.  ext.l d0
  2114.  divs d1,d0
  2115.  move.w d0,XDIFF2
  2116.  move.w PLR1_zoff,d0
  2117.  sub.w OLDZ1,d0
  2118.  asl.w #4,d0
  2119.  ext.l d0
  2120.  divs d1,d0
  2121.  move.w d0,ZDIFF1
  2122.  move.w PLR2_zoff,d0
  2123.  sub.w OLDZ2,d0
  2124.  asl.w #4,d0
  2125.  ext.l d0
  2126.  divs d1,d0
  2127.  move.w d0,ZDIFF2
  2128.  
  2129.  cmp.b #'s',mors
  2130.  beq.s ImPlayer2OhYesIAm
  2131.  bsr USEPLR1
  2132.  bra IWasPlayer1
  2133.  
  2134. ImPlayer2OhYesIAm:
  2135.  bsr USEPLR2
  2136. IWasPlayer1:
  2137.  
  2138.  
  2139.  cmp.b #'s',mors
  2140.  beq drawplayer2
  2141.  
  2142.  move.w #0,scaleval
  2143.  
  2144.  move.l PLR1_xoff,xoff
  2145.  move.l PLR1_yoff,yoff
  2146.  move.l PLR1_zoff,zoff
  2147.  move.w PLR1_angpos,angpos
  2148.  move.w PLR1_cosval,cosval
  2149.  move.w PLR1_sinval,sinval
  2150.  
  2151.  
  2152.  move.l PLR1_ListOfGraphRooms,ListOfGraphRooms
  2153.  move.l PLR1_PointsToRotatePtr,PointsToRotatePtr
  2154.  move.l PLR1_Roompt,Roompt
  2155.  
  2156.  bsr OrderZones
  2157.  jsr objmoveanim
  2158.  bsr EnergyBar
  2159.  bsr AmmoBar
  2160.  
  2161. ;********************************************
  2162. ;************* Do reflection ****************
  2163. ;
  2164. ; move.l ListOfGraphRooms,a0
  2165. ; move.l ZoneAdds,a1
  2166. ;checkwaterheights
  2167. ; move.w (a0),d0
  2168. ; blt allzonesdone
  2169. ; addq #8,a0
  2170. ; move.l (a1,d0.w*4),a2
  2171. ; 
  2172. ; add.l LEVELDATA,a2
  2173. ; 
  2174. ; move.l ToZoneWater(a2),d0
  2175. ; cmp.l ToZoneFloor(a2),d0
  2176. ; blt.s WEHAVEAHEIGHT
  2177. ; 
  2178. ; bra.s checkwaterheights
  2179. ;
  2180. ;WEHAVEAHEIGHT:
  2181. ;
  2182. ; sub.l yoff,d0
  2183. ; blt.s underwater
  2184. ; 
  2185. ; add.l d0,d0
  2186. ; add.l d0,yoff
  2187. ; 
  2188. ; move.l FASTBUFFER2,FASTBUFFER
  2189. ; move.w #0,leftclip
  2190. ; move.w RIGHTX,rightclip
  2191. ; move.w #0,deftopclip
  2192. ; move.w #BOTTOMY/2,defbotclip
  2193. ; move.w #0,topclip
  2194. ; move.w #BOTTOMY/2,botclip
  2195. ;
  2196. ; clr.b DOANYWATER 
  2197. ; 
  2198. ; bsr DrawDisplay
  2199. ; 
  2200. ;allzonesdone:
  2201. ;underwater:
  2202.  
  2203. ********************************************
  2204.  
  2205.  st DOANYWATER
  2206.  
  2207.  move.l PLR1_yoff,yoff
  2208.  
  2209.  move.w #0,leftclip
  2210.  move.w RIGHTX,rightclip
  2211.  move.w #0,deftopclip
  2212.  
  2213.  move.w BOTTOMY,defbotclip
  2214.  move.w #0,topclip
  2215.  move.w BOTTOMY,botclip
  2216. ; sub.l #10*104*4,frompt
  2217. ; sub.l #10*104*4,midpt
  2218.  
  2219. * Subroom loop
  2220.  
  2221.  bsr DrawDisplay 
  2222.  
  2223.  bra nodrawp2
  2224.  
  2225. drawplayer2
  2226.  
  2227.  move.w #0,scaleval
  2228.  move.l PLR2_xoff,xoff
  2229.  move.l PLR2_yoff,yoff
  2230.  move.l PLR2_zoff,zoff
  2231.  move.w PLR2_angpos,angpos
  2232.  move.w PLR2_cosval,cosval
  2233.  move.w PLR2_sinval,sinval 
  2234.  
  2235.  
  2236.  
  2237.  move.l PLR2_ListOfGraphRooms,ListOfGraphRooms
  2238.  move.l PLR2_PointsToRotatePtr,PointsToRotatePtr
  2239.  move.l PLR2_Roompt,Roompt
  2240.  
  2241.  bsr OrderZones
  2242.  jsr objmoveanim
  2243.  bsr EnergyBar
  2244.  bsr AmmoBar
  2245.  
  2246.  move.w #0,leftclip
  2247.  move.w RIGHTX,rightclip
  2248.  move.w #0,deftopclip
  2249.  move.w BOTTOMY,defbotclip
  2250.  move.w #0,topclip
  2251.  move.w BOTTOMY,botclip
  2252.  
  2253.  bsr DrawDisplay
  2254.  
  2255. nodrawp2:
  2256.  
  2257. ***************************************** 
  2258. * Copy from copbuff to chip ram
  2259.  
  2260.  
  2261. ; move.l drawpt,a3
  2262. ; adda.w #10,a3
  2263. ; move.l COPSCRNBUFF,a2
  2264. ; move.w #2,d6
  2265. ; adda.w #10,a2
  2266. ;COPYOUT
  2267. ; move.w #31,d0
  2268. ;COPYDOWN1:
  2269. ; move.w #3,d1
  2270. ; move.l a2,a4
  2271. ; move.l a3,a5
  2272. ;.inlop1:
  2273. ;val SET 0
  2274. ; REPT 20
  2275. ; move.w val(a4),val(a5)
  2276. ;val SET val+104*4
  2277. ; ENDR
  2278. ; adda.l #104*4*20,a4
  2279. ; adda.l #104*4*20,a5
  2280. ; dbra d1,.inlop1
  2281. ; addq #4,a2
  2282. ; addq #4,a3
  2283. ; dbra d0,COPYDOWN1
  2284. ; addq #4,a2
  2285. ; addq #4,a3
  2286. ; dbra d6,COPYOUT 
  2287.  
  2288.  tst.b MAPON
  2289.  beq.s .nomap
  2290.  bsr DoTheMapWotNastyCharlesIsForcingMeToDo
  2291. .nomap
  2292.  
  2293.  move.w #0,d7
  2294.  
  2295.  tst.b FULLSCR
  2296.  beq nobigconv
  2297.  
  2298.  move.l FASTBUFFER,a0
  2299. ; add.l #320*2*20,a0
  2300.  move.w d7,d6
  2301.  muls #320,d6
  2302.  add.l d6,a0
  2303.  move.l SCRNDRAWPT,a1
  2304.  move.w d7,d6
  2305.  muls #40,d6
  2306.  add.l d6,a1
  2307. ; add.l #2+40*20,a1
  2308.  move.l #(288/8)-1,d0
  2309.  move.l #239,d1
  2310.  sub.w d7,d1
  2311.  sub.w d7,d1
  2312.  move.w #(320-288),d2
  2313.  move.w #4,d3
  2314.  
  2315.  bra donebigconv
  2316.  
  2317. nobigconv:
  2318.  
  2319.  
  2320.  move.l FASTBUFFER,a0
  2321.  move.w d7,d6
  2322.  muls #320,d6
  2323.  add.l d6,a0
  2324.  move.l SCRNDRAWPT,a1
  2325.  add.l #8+40*20,a1
  2326.  move.w d7,d6
  2327.  muls #40,d6
  2328.  add.l d6,a1
  2329.  move.l #(192/8)-1,d0
  2330.  move.l #159,d1
  2331.  sub.w d7,d1
  2332.  sub.w d7,d1
  2333.  move.w #(320-192),d2
  2334.  move.w #16,d3
  2335. donebigconv
  2336.  jsr CHUNKYTOPLANAR 
  2337.  
  2338.  
  2339.  move.l #KeyMap,a5
  2340.  tst.b (a5)
  2341.  beq.s .nosavescrn
  2342.  
  2343. ; not.b USEDOUG
  2344.  
  2345.  jsr SAVETHESCREEN
  2346.  
  2347. .nosavescrn:
  2348.  
  2349. ***************************************** 
  2350.  move.l PLR2_Roompt,a0
  2351.  move.l #WorkSpace,a1
  2352.  clr.l (a1)
  2353.  clr.l 4(a1)
  2354.  clr.l 8(a1)
  2355.  clr.l 12(a1)
  2356.  clr.l 16(a1)
  2357.  clr.l 20(a1)
  2358.  clr.l 24(a1)
  2359.  clr.l 28(a1)
  2360.  
  2361.  cmp.b #'n',mors
  2362.  beq.s plr1only
  2363.  
  2364.  lea ToListOfGraph(a0),a0
  2365. .doallrooms:
  2366.  move.w (a0),d0
  2367.  blt.s .allroomsdone
  2368.  addq #8,a0
  2369.  move.w d0,d1
  2370.  asr.w #3,d0
  2371.  bset d1,(a1,d0.w)
  2372.  bra .doallrooms
  2373. .allroomsdone:
  2374.  
  2375. plr1only:
  2376.  
  2377.  move.l PLR1_Roompt,a0
  2378.  lea ToListOfGraph(a0),a0
  2379. .doallrooms2:
  2380.  move.w (a0),d0
  2381.  blt.s .allroomsdone2
  2382.  addq #8,a0
  2383.  move.w d0,d1
  2384.  asr.w #3,d0
  2385.  bset d1,(a1,d0.w)
  2386.  bra .doallrooms2
  2387. .allroomsdone2:
  2388.  
  2389.  move.l #%000001,d7
  2390.  lea TEAMWORK,a2
  2391.  move.l ObjectData,a0
  2392.  sub.w #64,a0
  2393. .doallobs:
  2394.  add.w #64,a0
  2395.  move.w (a0),d0
  2396.  blt.s .allobsdone
  2397.  move.w 12(a0),d0
  2398.  blt.s .doallobs
  2399.  move.w d0,d1
  2400.  asr.w #3,d0
  2401.  btst d1,(a1,d0.w)
  2402.  bne.s .worryobj
  2403.  move.b 16(a0),d0
  2404.  btst d0,d7
  2405.  beq.s .doallobs
  2406.  moveq #0,d0
  2407.  move.b teamnumber(a0),d0
  2408.  blt.s .doallobs
  2409.  asl.w #4,d0
  2410.  tst.w SEENBY(a2,d0.w)
  2411.  blt.s .doallobs
  2412. .worryobj:
  2413.  or.b #127,worry(a0)
  2414.  bra.s .doallobs
  2415. .allobsdone:
  2416.  
  2417.  
  2418.  
  2419. ; move.l #brightentab,a0
  2420. ; move.l frompt,a3
  2421. ; adda.w #(4*33)+(104*4*20),a3
  2422. ; move.w #20,d7
  2423. ; move.w #20,d6
  2424. ;horl:
  2425. ; move.w d6,d5
  2426. ; move.l a3,a1
  2427. ;vertl
  2428. ; move.w (a1),d0
  2429. ; move.w (a0,d0.w*2),(a1)
  2430. ; addq #4,a1
  2431. ; dbra d5,vertl
  2432. ; adda.w #104*4,a3
  2433. ; dbra d7,horl
  2434.  
  2435.  move.l #$dff000,a6
  2436.  
  2437. ; move.w #$300,col0(a6)
  2438.  
  2439.  move.l #KeyMap,a5
  2440.  tst.b $45(a5)
  2441.  beq.s noend
  2442.  
  2443.  cmp.b #'s',mors
  2444.  beq plr2quit 
  2445.  
  2446.  st MASTERQUITTING
  2447.  bra noend
  2448.  
  2449. plr2quit:
  2450.  st SLAVEQUITTING
  2451. noend:
  2452.  
  2453.  tst.b MASTERQUITTING
  2454.  beq.s .noquit
  2455.  tst.b SLAVEQUITTING
  2456.  bne endnomusic
  2457. .noquit
  2458.  
  2459.  cmp.b #'n',mors
  2460.  bne.s noexit
  2461.  move.l PLR1_Roompt,a0
  2462.  move.w (a0),d0
  2463.  move.w PLOPT,d1
  2464.  move.l #ENDZONES,a0
  2465.  cmp.w (a0,d1.w*2),d0
  2466.  
  2467. ; change this for quick exit, charlie
  2468. zzzz:
  2469. ; bra end
  2470.  
  2471.  beq end
  2472. noexit:
  2473.  
  2474.  tst.w PLR1_energy
  2475.  ble end
  2476.  tst.w PLR2_energy
  2477.  ble end
  2478.  
  2479. ; move.l SwitchData,a0
  2480. ; tst.b 24+8(a0)
  2481. ; bne end
  2482.   
  2483. ; JSR STOPTIMER
  2484.  
  2485.  
  2486.  bra lop
  2487.  
  2488. TRRANS: dc.w 0
  2489. DOANYWATER: dc.w 0
  2490.  
  2491. DoTheMapWotNastyCharlesIsForcingMeToDo:
  2492.  
  2493.  move.l #SHADINGTABLE,a4
  2494. ; add.w MAPBRIGHT,a4
  2495.  
  2496.  move.l #KeyMap,a5
  2497.  tst.b $50(a5)
  2498.  beq.s .nobrighter
  2499.  tst.w MAPBRIGHT
  2500.  beq.s .nobrighter
  2501.  
  2502.  sub.w #1,MAPBRIGHT
  2503.  
  2504. .nobrighter:
  2505.  
  2506.  tst.b $51(a5)
  2507.  beq.s .nodimmer
  2508.  cmp.w #7,MAPBRIGHT
  2509.  bge.s .nodimmer
  2510.  
  2511.  add.w #1,MAPBRIGHT
  2512.  
  2513. .nodimmer:
  2514.  
  2515.  move.l #Rotated,a1
  2516.  move.l #COMPACTMAP,a2
  2517.  move.l #BIGMAP-40,a3
  2518.  
  2519. preshow:
  2520.  add.w #40,a3
  2521.  
  2522. SHOWMAP:
  2523.  move.l (a2)+,d5
  2524.  move.l a2,d7
  2525.  cmp.l LASTZONE,d7
  2526.  bgt shownmap
  2527.  
  2528.  tst.l d5
  2529.  beq.s preshow
  2530.  
  2531.  move.w #9,d7
  2532. wallsofzone
  2533.  
  2534.  asr.l #1,d5
  2535.  bcs.s WALLSEEN
  2536.  
  2537.  asr.l #1,d5
  2538.  bcs.s WALLMAPPED
  2539.  
  2540.  asr.l #1,d5
  2541.  addq #4,a3
  2542.  bra.s DECIDEDWALL
  2543.  
  2544. WALLMAPPED:
  2545.  move.w #$b00,d4
  2546.  asr.l #1,d5
  2547.  bcc.s .notadoor
  2548.  move.w #$e00,d4
  2549. .notadoor
  2550.  
  2551.  st TRRANS
  2552.  
  2553.  bra.s DECIDEDCOLOUR
  2554.  
  2555. WALLSEEN:
  2556.  
  2557.  clr.b TRRANS
  2558.  
  2559.  move.w #255*256,d4
  2560.  asr.l #2,d5
  2561.  bcc.s .notadoor
  2562.  move.w #254*256,d4
  2563. .notadoor
  2564. DECIDEDCOLOUR:
  2565.  move.w (a3)+,d6
  2566.  move.l (a1,d6.w*8),d0
  2567.  asr.l #7,d0
  2568.  add.w mapxoff,d0
  2569.  move.w 6(a1,d6.w*8),d1
  2570.  add.w mapzoff,d1
  2571.  move.w (a3)+,d6
  2572.  move.l (a1,d6.w*8),d2
  2573.  asr.l #7,d2
  2574.  add.w mapxoff,d2
  2575.  move.w 6(a1,d6.w*8),d3
  2576.  add.w mapzoff,d3
  2577.  
  2578.  neg.w d1
  2579.  neg.w d3
  2580.  
  2581.  movem.l d7/d5,-(a7)
  2582.  bsr CLIPANDDRAW
  2583.  movem.l (a7)+,d7/d5
  2584.  
  2585. DECIDEDWALL:
  2586.  
  2587.  dbra d7,wallsofzone
  2588.  bra SHOWMAP
  2589.  
  2590. shownmap:
  2591.  
  2592.  clr.b TRRANS
  2593.  
  2594.  move.w mapxoff,d0
  2595.  move.w mapzoff,d1
  2596.  neg.w d1
  2597.  move.w d0,d2
  2598.  move.w d1,d3
  2599.  sub.w #128,d1
  2600.  add.w #128,d3
  2601.  move.w #250*256,d4
  2602.  bsr CLIPANDDRAW
  2603.  
  2604.  move.w mapxoff,d0
  2605.  move.w mapzoff,d1
  2606.  neg.w d1
  2607.  move.w d0,d2
  2608.  move.w d1,d3
  2609.  sub.w #128,d1
  2610.  sub.w #32,d3
  2611.  sub.w #64,d2
  2612.  move.w #250*256,d4
  2613.  bsr CLIPANDDRAW
  2614.  
  2615.  move.w mapxoff,d0
  2616.  move.w mapzoff,d1
  2617.  neg.w d1
  2618.  move.w d0,d2
  2619.  move.w d1,d3
  2620.  sub.w #128,d1
  2621.  sub.w #32,d3
  2622.  add.w #64,d2
  2623.  move.w #250*256,d4
  2624.  bsr CLIPANDDRAW
  2625.  rts
  2626.  
  2627.  
  2628. CLIPANDDRAW:
  2629.  
  2630.  tst.b FULLSCR
  2631.  beq.s .nodov
  2632.  
  2633.  add.w d0,d0
  2634.  add.w d2,d2
  2635.  ext.l d0
  2636.  ext.l d2
  2637.  divs #3,d0
  2638.  divs #3,d2
  2639.  
  2640. .nodov:
  2641.  
  2642.  move.w MAPBRIGHT,d5
  2643.  asr.w d5,d0
  2644.  asr.w d5,d1
  2645.  asr.w d5,d2
  2646.  asr.w d5,d3
  2647.  
  2648. NOSCALING:
  2649.  add.w #96,d0
  2650.  bge p1xpos
  2651.  
  2652.  add.w #96,d2
  2653.  blt OFFSCREEN
  2654.  
  2655. x1nx2p:
  2656.  
  2657.  move.w d3,d5
  2658.  sub.w d1,d5
  2659.  move.w d2,d6
  2660.  sub.w d0,d6
  2661.  beq OFFSCREEN
  2662.  
  2663.  muls d0,d5
  2664.  divs d6,d5
  2665.  sub.w d5,d1
  2666.  move.w #0,d0
  2667.  
  2668.  bra doneleftclip
  2669.  
  2670. p1xpos:
  2671.  
  2672.  add.w #96,d2
  2673.  bge doneleftclip
  2674.  
  2675.  move.w d1,d5
  2676.  sub.w d3,d5
  2677.  move.w d0,d6
  2678.  sub.w d2,d6
  2679.  beq OFFSCREEN
  2680.  
  2681.  muls d2,d5
  2682.  divs d6,d5
  2683.  sub.w d5,d3
  2684.  move.w #0,d2
  2685.  
  2686. doneleftclip:
  2687.  
  2688.  cmp.w #191,d0
  2689.  ble p1xneg
  2690.  
  2691.  cmp.w #191,d2
  2692.  bgt OFFSCREEN
  2693.  
  2694.  move.w d0,d6
  2695.  sub.w d2,d6
  2696.  beq OFFSCREEN
  2697.  sub.w #191,d0
  2698.  move.w d3,d5
  2699.  sub.w d1,d5
  2700.  
  2701.  muls d5,d0
  2702.  divs d6,d0
  2703.  add.w d0,d1
  2704.  move.w #191,d0
  2705.  
  2706.  bra donerightclip
  2707.  
  2708. p1xneg:
  2709.  
  2710.  cmp.w #191,d2
  2711.  ble donerightclip
  2712.  
  2713.  move.w d2,d6
  2714.  sub.w d0,d6
  2715.  beq OFFSCREEN
  2716.  sub.w #191,d2
  2717.  move.w d1,d5
  2718.  sub.w d3,d5
  2719.  
  2720.  muls d5,d2
  2721.  divs d6,d2
  2722.  add.w d2,d3
  2723.  move.w #191,d2
  2724.  
  2725. donerightclip:
  2726.  
  2727. *********************************
  2728.  
  2729.  add.w #80,d1
  2730.  bge p1ypos
  2731.  
  2732.  add.w #80,d3
  2733.  blt OFFSCREEN
  2734.  
  2735.  move.w d2,d5
  2736.  sub.w d0,d5
  2737.  move.w d3,d6
  2738.  sub.w d1,d6
  2739.  beq OFFSCREEN
  2740.  
  2741.  muls d1,d5
  2742.  divs d6,d5
  2743.  sub.w d5,d0
  2744.  move.w #0,d1
  2745.  
  2746.  bra donetopclip
  2747.  
  2748. p1ypos:
  2749.  
  2750.  add.w #80,d3
  2751.  bge donetopclip
  2752.  
  2753.  move.w d0,d5
  2754.  sub.w d2,d5
  2755.  move.w d1,d6
  2756.  sub.w d3,d6
  2757.  beq OFFSCREEN
  2758.  
  2759.  muls d3,d5
  2760.  divs d6,d5
  2761.  sub.w d5,d2
  2762.  move.w #0,d3
  2763.  
  2764. donetopclip:
  2765.  
  2766.  cmp.w #159,d1
  2767.  ble p1yneg
  2768.  
  2769.  cmp.w #159,d3
  2770.  bgt OFFSCREEN
  2771.  
  2772.  move.w d1,d6
  2773.  sub.w d3,d6
  2774.  beq OFFSCREEN
  2775.  sub.w #159,d1
  2776.  move.w d2,d5
  2777.  sub.w d0,d5
  2778.  
  2779.  muls d5,d1
  2780.  divs d6,d1
  2781.  add.w d1,d0
  2782.  move.w #159,d1
  2783.  
  2784.  bra donebotclip
  2785.  
  2786. p1yneg:
  2787.  
  2788.  cmp.w #159,d3
  2789.  ble donebotclip
  2790.  
  2791.  move.w d3,d6
  2792.  sub.w d1,d6
  2793.  beq OFFSCREEN
  2794.  sub.w #159,d3
  2795.  move.w d0,d5
  2796.  sub.w d2,d5
  2797.  
  2798.  muls d5,d3
  2799.  divs d6,d3
  2800.  add.w d3,d2
  2801.  move.w #159,d3
  2802.  
  2803. donebotclip:
  2804.  
  2805.  tst.b TRRANS
  2806.  bne DRAWAtransLINE
  2807.  bra DRAWAMAPLINE
  2808.  
  2809. OFFSCREEN:
  2810. NOLINEtrans:
  2811.  rts
  2812.  
  2813. MAPBRIGHT:
  2814.  dc.w 0
  2815. mapxoff: dc.w 0
  2816. mapzoff: dc.w 0
  2817.  
  2818. DRAWAtransLINE:
  2819.  
  2820.  move.l FASTBUFFER,a0    ; screen to render to.
  2821.  
  2822.  tst.b FULLSCR
  2823.  beq.s .nooffset
  2824.   
  2825.  add.l #(640*40)+(48*2),a0
  2826.   
  2827. .nooffset:
  2828.  
  2829.  cmp.w d1,d3
  2830.  bgt.s .okdown
  2831.  bne.s .aline
  2832.  cmp.w d0,d2
  2833.  beq.s NOLINEtrans 
  2834. .aline
  2835.  exg d0,d2
  2836.  exg d1,d3
  2837. .okdown
  2838.  
  2839.  move.w d1,d5
  2840.  muls #320*2,d5
  2841.  add.l d5,a0
  2842.  lea (a0,d0.w*2),a0
  2843.  
  2844.  sub.w d1,d3
  2845.  
  2846.  sub.w d0,d2
  2847.  bge.s downrighttrans
  2848.  
  2849. downlefttrans:
  2850.  neg.w d2
  2851.  cmp.w d2,d3
  2852.  bgt.s downmorelefttrans
  2853.  
  2854. downleftmoretrans:
  2855.  move.w #320*2,d6
  2856.  move.w d2,d0
  2857.  move.w d2,d7
  2858.  
  2859. .linelop:
  2860.  move.b (a0),d4
  2861.  move.w (a4,d4.w*2),(a0)
  2862.  subq #2,a0
  2863.  sub.w d3,d0
  2864.  bgt.s .noextra
  2865.  add.w d2,d0
  2866.  add.w d6,a0
  2867. .noextra:
  2868.  dbra d7,.linelop
  2869.  rts
  2870.  
  2871. downmorelefttrans:
  2872.  move.w #320*2,d6
  2873.  move.w d3,d0
  2874.  move.w d3,d7
  2875.  
  2876. .linelop:
  2877.  move.b (a0),d4
  2878.  move.w (a4,d4.w*2),(a0)
  2879.  add.w d6,a0
  2880.  sub.w d2,d0
  2881.  bgt.s .noextra
  2882.  add.w d3,d0
  2883.  subq #2,a0
  2884. .noextra:
  2885.  dbra d7,.linelop
  2886.  
  2887.  rts
  2888.  
  2889. downrighttrans:
  2890.  
  2891.  cmp.w d2,d3
  2892.  bgt.s downmorerighttrans
  2893.  
  2894. downrightmoretrans:
  2895.  move.w #320*2,d6
  2896.  move.w d2,d0
  2897.  move.w d2,d7
  2898.  
  2899. .linelop:
  2900.  move.b (a0),d4
  2901.  move.w (a4,d4.w*2),(a0)+
  2902.  sub.w d3,d0
  2903.  bgt.s .noextra
  2904.  add.w d2,d0
  2905.  add.w d6,a0
  2906. .noextra:
  2907.  dbra d7,.linelop
  2908.  
  2909.  rts
  2910.  
  2911. downmorerighttrans:
  2912.  move.w #320*2,d6
  2913.  move.w d3,d0
  2914.  move.w d3,d7
  2915.  
  2916. .linelop:
  2917.  move.b (a0),d4
  2918.  move.w (a4,d4.w*2),(a0)
  2919.  add.w d6,a0
  2920.  sub.w d2,d0
  2921.  bgt.s .noextra
  2922.  add.w d3,d0
  2923.  addq #2,a0
  2924. .noextra:
  2925.  dbra d7,.linelop
  2926.  
  2927.  rts
  2928.  
  2929. NOLINE:
  2930.  rts
  2931.  
  2932. DRAWAMAPLINE:
  2933.  
  2934.  
  2935.  move.l FASTBUFFER,a0    ; screen to render to.
  2936.  cmp.w d1,d3
  2937.  bgt.s .okdown
  2938.  bne.s .aline
  2939.  cmp.w d0,d2
  2940.  beq.s NOLINE 
  2941. .aline
  2942.  exg d0,d2
  2943.  exg d1,d3
  2944. .okdown
  2945.  
  2946.  move.w d1,d5
  2947.  muls #320*2,d5
  2948.  add.l d5,a0
  2949.  lea (a0,d0.w*2),a0
  2950.  
  2951.  sub.w d1,d3
  2952.  
  2953.  sub.w d0,d2
  2954.  bge.s downright
  2955.  
  2956. downleft:
  2957.  neg.w d2
  2958.  cmp.w d2,d3
  2959.  bgt.s downmoreleft
  2960.  
  2961. downleftmore:
  2962.  move.w #320*2,d6
  2963.  move.w d2,d0
  2964.  move.w d2,d7
  2965.  
  2966. .linelop:
  2967.  move.w d4,(a0)
  2968.  subq #2,a0
  2969.  sub.w d3,d0
  2970.  bgt.s .noextra
  2971.  add.w d2,d0
  2972.  add.w d6,a0
  2973. .noextra:
  2974.  dbra d7,.linelop
  2975.  rts
  2976.  
  2977. downmoreleft:
  2978.  move.w #320*2,d6
  2979.  move.w d3,d0
  2980.  move.w d3,d7
  2981.  
  2982. .linelop:
  2983.  move.w d4,(a0)
  2984.  add.w d6,a0
  2985.  sub.w d2,d0
  2986.  bgt.s .noextra
  2987.  add.w d3,d0
  2988.  subq #2,a0
  2989. .noextra:
  2990.  dbra d7,.linelop
  2991.  
  2992.  rts
  2993.  
  2994. downright:
  2995.  
  2996.  cmp.w d2,d3
  2997.  bgt.s downmoreright
  2998.  
  2999. downrightmore:
  3000.  move.w #320*2,d6
  3001.  move.w d2,d0
  3002.  move.w d2,d7
  3003.  
  3004. .linelop:
  3005.  move.w d4,(a0)+
  3006.  sub.w d3,d0
  3007.  bgt.s .noextra
  3008.  add.w d2,d0
  3009.  add.w d6,a0
  3010. .noextra:
  3011.  dbra d7,.linelop
  3012.  
  3013.  rts
  3014.  
  3015. downmoreright:
  3016.  move.w #320*2,d6
  3017.  move.w d3,d0
  3018.  move.w d3,d7
  3019.  
  3020. .linelop:
  3021.  move.w d4,(a0)
  3022.  add.w d6,a0
  3023.  sub.w d2,d0
  3024.  bgt.s .noextra
  3025.  add.w d3,d0
  3026.  addq #2,a0
  3027. .noextra:
  3028.  dbra d7,.linelop
  3029.  
  3030.  rts
  3031.  
  3032. SAVETHESCREEN:
  3033.  
  3034.  move.l doslib,a6
  3035.  move.l #SAVENAME,d1
  3036.  move.l #1006,d2
  3037.  jsr -30(a6)
  3038.  move.l d0,handle
  3039.  
  3040.  move.l doslib,a6
  3041. ; move.l SCRNSHOWPTR,d2
  3042.  move.l handle,d1
  3043.  move.l #10240*8,d3
  3044.  jsr _LVOWrite(a6)
  3045.  
  3046.  move.l doslib,a6
  3047.  move.l handle,d1
  3048.  jsr -36(a6)
  3049.  
  3050.  add.b #1,SAVELETTER
  3051.  
  3052.  rts
  3053.  
  3054. SAVENAME: dc.b 'df0:rawscrn'
  3055. SAVELETTER: dc.b 'd',0
  3056.  
  3057.  even
  3058.  
  3059.  include "ab3:source_4000/CHUNKY.s"
  3060.  
  3061.  
  3062. MASTERQUITTING: dc.b 0
  3063. SLAVEQUITTING: dc.b 0
  3064. MASTERPAUSE: dc.b 0
  3065. SLAVEPAUSE: dc.b 0
  3066.  
  3067. PAUSEOPTS:
  3068.  include "ab3:source_4000/pauseopts"
  3069.  
  3070. ENDZONES:
  3071. ; LEVEL 1
  3072.  dc.w -1
  3073. ; dc.w 55
  3074. ; LEVEL 2
  3075.  dc.w 149
  3076. ; LEVEL 3
  3077.  dc.w 155
  3078. ; LEVEL 4
  3079.  dc.w 107
  3080. ; LEVEL 5
  3081.  dc.w 67
  3082. ; LEVEL 6
  3083.  dc.w 132
  3084. ; LEVEL 7
  3085.  dc.w 203
  3086. ; LEVEL 8
  3087.  dc.w 166
  3088. ; LEVEL 9
  3089.  dc.w 118
  3090. ; LEVEL 10
  3091.  dc.w 102
  3092. ; LEVEL 11
  3093.  dc.w 103
  3094. ; LEVEL 12
  3095.  dc.w 2
  3096. ; LEVEL 13
  3097.  dc.w 98
  3098. ; LEVEL 14
  3099.  dc.w 0
  3100. ; LEVEL 15
  3101.  dc.w 148
  3102. ; LEVEL 16
  3103.  dc.w 103
  3104.  
  3105. ***************************************************************************
  3106. ***************************************************************************
  3107. ****************** End of Main Loop here ********************************** 
  3108. ***************************************************************************
  3109. ***************************************************************************
  3110.  
  3111.  
  3112. CLEARKEYBOARD:
  3113.  move.l #KeyMap,a5
  3114.  moveq #0,d0
  3115.  move.w #15,d1
  3116. clrloo:
  3117.  move.l d0,(a5)+
  3118.  move.l d0,(a5)+
  3119.  move.l d0,(a5)+
  3120.  move.l d0,(a5)+
  3121.  dbra d1,clrloo
  3122.  rts
  3123.  
  3124. READCONTROLS: dc.w 0
  3125.  
  3126. tstststst: dc.w 0
  3127.  
  3128. BollocksRoom:
  3129.  dc.w -1
  3130.  ds.l 50
  3131.  
  3132. GUNYOFFS:
  3133.  dc.w 20
  3134.  dc.w 20
  3135.  dc.w 0
  3136.  dc.w 20
  3137.  dc.w 20
  3138.  dc.w 0
  3139.  dc.w 0
  3140.  dc.w 20
  3141.  
  3142. USEPLR1:
  3143.  
  3144. ***********************************
  3145.  
  3146.  move.l PLR1_Obj,a0 
  3147.  move.l ObjectPoints,a1
  3148.  move.l #ObjRotated,a2
  3149.  move.w (a0),d0
  3150.  move.l PLR1_xoff,(a1,d0.w*8)
  3151.  move.l PLR1_zoff,4(a1,d0.w*8)
  3152.  move.l PLR1_Roompt,a1
  3153.  
  3154.  moveq #0,d2
  3155.  move.b damagetaken(a0),d2
  3156.  beq .notbeenshot
  3157.  move.l #7*2116,hitcol
  3158.  sub.w d2,PLR1_energy
  3159.  movem.l d0-d7/a0-a6,-(a7)
  3160.  move.b #$fb,IDNUM
  3161.  move.w #19,Samplenum
  3162.  clr.b notifplaying
  3163.  move.w #0,Noisex
  3164.  move.w #0,Noisez
  3165.  move.w #100,Noisevol
  3166.  jsr MakeSomeNoise
  3167.  
  3168.  movem.l (a7)+,d0-d7/a0-a6
  3169.  
  3170. .notbeenshot
  3171.  move.b #0,damagetaken(a0)
  3172.  move.b PLR1_energy+1,numlives(a0)
  3173.  
  3174.  move.b PLR1_StoodInTop,ObjInTop(a0)
  3175.  
  3176.  move.w (a1),12(a0)
  3177.  move.w (a1),d2
  3178.  move.l #ZoneBrightTable,a1
  3179.  move.l (a1,d2.w*4),d2
  3180.  tst.b PLR1_StoodInTop
  3181.  bne.s .okinbott
  3182.  swap d2
  3183. .okinbott:
  3184.  
  3185.  move.w d2,2(a0)
  3186.  
  3187.  move.l p1_yoff,d0
  3188.  move.l p1_height,d1
  3189.  asr.l #1,d1
  3190.  add.l d1,d0
  3191.  asr.l #7,d0
  3192.  move.w d0,4(a0)
  3193.  
  3194. ***********************************
  3195.  
  3196.  move.l PLR2_Obj,a0 
  3197.  
  3198.  move.w PLR2_angpos,d0
  3199.  and.w #8190,d0
  3200.  move.w d0,Facing(a0)
  3201.  
  3202.  jsr ViewpointToDraw
  3203.  asl.w #2,d0
  3204.  moveq #0,d1
  3205.  move.b p2_bobble,d1
  3206.  not.b d1
  3207.  lsr.b #3,d1
  3208.  and.b #$3,d1
  3209.  add.w d1,d0
  3210.  move.w d0,10(a0)
  3211.  move.w #10,8(a0)
  3212.  
  3213.  move.l ObjectPoints,a1
  3214.  move.l #ObjRotated,a2
  3215.  move.w (a0),d0
  3216.  move.l PLR2_xoff,(a1,d0.w*8)
  3217.  move.l PLR2_zoff,4(a1,d0.w*8)
  3218.  move.l PLR2_Roompt,a1
  3219.  
  3220.  moveq #0,d2
  3221.  move.b damagetaken(a0),d2
  3222.  beq .notbeenshot2
  3223.  sub.w d2,PLR2_energy
  3224. .notbeenshot2
  3225.  move.b #0,damagetaken(a0)
  3226.  move.b PLR2_energy+1,numlives(a0)
  3227.  
  3228.  move.b PLR2_StoodInTop,ObjInTop(a0)
  3229.  
  3230.  move.w (a1),12(a0)
  3231.  move.w (a1),d2
  3232.  move.l #ZoneBrightTable,a1
  3233.  move.l (a1,d2.w*4),d2
  3234.  tst.b PLR2_StoodInTop
  3235.  bne.s .okinbott2
  3236.  swap d2
  3237. .okinbott2:
  3238.  
  3239.  move.w d2,2(a0)
  3240.  
  3241.  move.l p2_yoff,d0
  3242.  move.l p2_height,d1
  3243.  asr.l #1,d1
  3244.  add.l d1,d0
  3245.  asr.l #7,d0
  3246.  move.w d0,4(a0)
  3247.  
  3248. **********************************
  3249.  
  3250.  
  3251.  move.l PLR1_Obj,a0
  3252.  move.w #-1,12+128(a0)
  3253.  
  3254.  rts
  3255.  
  3256. DRAWINGUN:
  3257.  move.l #Objects+9*16,a0
  3258.  move.l 4(a0),a5    ; ptr
  3259.  move.l 8(a0),a2    ; frames
  3260.  move.l 12(a0),a4    ; pal
  3261.  move.l (a0),a0        ; wad
  3262.  
  3263.  move.l #GunAnims,a1
  3264.  move.l (a1,d0.w*8),a1
  3265.  move.w (a1,d1.w*2),d5    ; frame of anim
  3266.  
  3267.  move.l #GUNYOFFS,a1
  3268.  move.w (a1,d0.w*2),d7    ; yoff
  3269.  move.l FASTBUFFER,a6
  3270.  move.w d7,d6
  3271.  muls #320*2*2,d6
  3272.  add.l d6,a6    ; screen pointer
  3273.  
  3274.  asl.w #2,d0
  3275.  add.w d5,d0    ; frame
  3276.  move.w (a2,d0.w*4),d1    ; xoff
  3277.  
  3278.  lea (a5,d1.w),a5    ; right ptr
  3279.  
  3280.  move.w #95,d0
  3281.  bsr DRAWCHUNK
  3282. ; addq.w #4,a6
  3283. ; move.w #31,d0
  3284. ; bsr DRAWCHUNK
  3285. ; addq.w #4,a6
  3286. ; move.w #31,d0
  3287. ; bsr DRAWCHUNK
  3288.  rts
  3289.  
  3290.  
  3291. DRAWCHUNK:
  3292.  move.w #78,d3
  3293.  sub.w d7,d3
  3294.  move.l a6,a3
  3295.  move.b (a5),d2
  3296.  move.l (a5)+,d1
  3297.  bne.s .noblank
  3298.  addq #4,a6
  3299.  dbra d0,DRAWCHUNK 
  3300.  rts
  3301.  
  3302. .noblank:
  3303.  and.l #$ffffff,d1
  3304.  lea (a0,d1.l),a1
  3305.  cmp.b #1,d2
  3306.  bgt.s thirdd
  3307.  beq.s secc
  3308. .drawdown:
  3309.  move.w (a1)+,d2
  3310.  and.w #%11111,d2
  3311.  beq.s .itsblank
  3312.  move.w (a4,d2.w*2),d4
  3313.  move.w d4,d5
  3314.  swap d4
  3315.  move.w d5,d4
  3316.  move.l d4,(a3)
  3317.  move.l d4,320*2(a3)
  3318. .itsblank
  3319.  add.w #320*2*2,a3
  3320.  dbra d3,.drawdown
  3321.  
  3322.  addq #4,a6
  3323.  dbra d0,DRAWCHUNK
  3324.  rts
  3325.  
  3326. secc:
  3327. .drawdown:
  3328.  move.w (a1)+,d2
  3329.  lsr.w #5,d2
  3330.  and.w #%11111,d2
  3331.  beq.s .itsblank
  3332.  move.w (a4,d2.w*2),d4
  3333.  move.w d4,d5
  3334.  swap d4
  3335.  move.w d5,d4
  3336.  move.l d4,(a3)
  3337.  move.l d4,320*2(a3)
  3338. .itsblank
  3339.  add.w #320*2*2,a3
  3340.  dbra d3,.drawdown
  3341.  
  3342.  addq #4,a6
  3343.  dbra d0,DRAWCHUNK
  3344.  rts
  3345.  
  3346. thirdd:
  3347. .drawdown:
  3348.  move.b (a1),d2
  3349.  addq #2,a1
  3350.  lsr.b #2,d2
  3351.  and.w #%11111,d2
  3352.  beq.s .itsblank
  3353.  move.w (a4,d2.w*2),d4
  3354.  move.w d4,d5
  3355.  swap d4
  3356.  move.w d5,d4
  3357.  move.l d4,(a3)
  3358.  move.l d4,320*2(a3)
  3359. .itsblank
  3360.  add.w #320*2*2,a3
  3361.  dbra d3,.drawdown
  3362.  
  3363.  addq #4,a6
  3364.  dbra d0,DRAWCHUNK
  3365.  rts
  3366.  
  3367.  
  3368.  
  3369. ***************************************************
  3370. **************************************************
  3371.  
  3372. USEPLR2:
  3373.  
  3374.  PROTKCHECK a0
  3375.  
  3376. ***********************************
  3377.  
  3378.  move.l PLR2_Obj,a0 
  3379.  move.l ObjectPoints,a1
  3380.  move.l #ObjRotated,a2
  3381.  move.w (a0),d0
  3382.  move.l PLR2_xoff,(a1,d0.w*8)
  3383.  move.l PLR2_zoff,4(a1,d0.w*8)
  3384.  move.l PLR2_Roompt,a1
  3385.  
  3386.  moveq #0,d2
  3387.  move.b damagetaken(a0),d2
  3388.  beq .notbeenshot
  3389.  move.l #7*2116,hitcol
  3390.  sub.w d2,PLR2_energy
  3391.  movem.l d0-d7/a0-a6,-(a7)
  3392.  move.w #19,Samplenum
  3393.  clr.b notifplaying
  3394.  move.b #$fb,IDNUM
  3395.  move.w #0,Noisex
  3396.  move.w #0,Noisez
  3397.  move.w #100,Noisevol
  3398.  jsr MakeSomeNoise
  3399.  
  3400.  movem.l (a7)+,d0-d7/a0-a6
  3401.  
  3402. .notbeenshot
  3403.  move.b #0,damagetaken(a0)
  3404.  move.b PLR2_energy+1,numlives(a0)
  3405.  
  3406.  move.b PLR2_StoodInTop,ObjInTop(a0)
  3407.  
  3408.  move.w (a1),12(a0)
  3409.  move.w (a1),d2
  3410.  move.l #ZoneBrightTable,a1
  3411.  move.l (a1,d2.w*4),d2
  3412.  tst.b PLR2_StoodInTop
  3413.  bne.s .okinbott
  3414.  swap d2
  3415. .okinbott:
  3416.  
  3417.  move.w d2,2(a0)
  3418.  
  3419.  move.l PLR2_yoff,d0
  3420.  move.l p2_height,d1
  3421.  asr.l #1,d1
  3422.  add.l d1,d0
  3423.  asr.l #7,d0
  3424.  move.w d0,4(a0)
  3425.  
  3426. ***********************************
  3427.  
  3428.  move.l PLR1_Obj,a0 
  3429.  
  3430.  move.w PLR1_angpos,d0
  3431.  and.w #8190,d0
  3432.  move.w d0,Facing(a0)
  3433.  
  3434.  jsr ViewpointToDraw
  3435.  asl.w #2,d0
  3436.  moveq #0,d1
  3437.  move.b p1_bobble,d1
  3438.  not.b d1
  3439.  lsr.b #3,d1
  3440.  and.b #$3,d1
  3441.  add.w d1,d0
  3442.  move.w d0,10(a0)
  3443.  move.w #10,8(a0)
  3444.  
  3445.  move.l ObjectPoints,a1
  3446.  move.l #ObjRotated,a2
  3447.  move.w (a0),d0
  3448.  move.l PLR1_xoff,(a1,d0.w*8)
  3449.  move.l PLR1_zoff,4(a1,d0.w*8)
  3450.  move.l PLR1_Roompt,a1
  3451.  
  3452.  moveq #0,d2
  3453.  move.b damagetaken(a0),d2
  3454.  beq .notbeenshot2
  3455.  sub.w d2,PLR1_energy
  3456. .notbeenshot2
  3457.  move.b #0,damagetaken(a0)
  3458.  move.b PLR1_energy+1,numlives(a0)
  3459.  
  3460.  move.b PLR1_StoodInTop,ObjInTop(a0)
  3461.  
  3462.  move.w (a1),12(a0)
  3463.  move.w (a1),d2
  3464.  move.l #ZoneBrightTable,a1
  3465.  move.l (a1,d2.w*4),d2
  3466.  tst.b PLR1_StoodInTop
  3467.  bne.s .okinbott2
  3468.  swap d2
  3469. .okinbott2:
  3470.  
  3471.  move.w d2,2(a0)
  3472.  
  3473.  move.l PLR1_yoff,d0
  3474.  move.l p1_height,d1
  3475.  asr.l #1,d1
  3476.  add.l d1,d0
  3477.  asr.l #7,d0
  3478.  move.w d0,4(a0)
  3479.  
  3480. **********************************
  3481.  
  3482.  move.l PLR2_Obj,a0
  3483.  move.w #-1,12+64(a0)
  3484.  
  3485.  rts
  3486.  
  3487.  
  3488. GunSelected: dc.b 0
  3489.  even
  3490.  
  3491. GunAnims:
  3492.  dc.l MachineAnim,3
  3493.  dc.l PlasmaAnim,5
  3494.  dc.l RocketAnim,5
  3495.  dc.l FlameThrowerAnim,5
  3496.  dc.l GrenadeAnim,12
  3497.  dc.l 0,0
  3498.  dc.l 0,0
  3499.  dc.l ShotGunAnim,12+19+11+20+1
  3500.  
  3501. MachineAnim:
  3502.  dc.w 0,1,2,3
  3503. PlasmaAnim:
  3504.  dc.w 0,1,2,3,3,3
  3505. RocketAnim:
  3506.  dc.w 0,1,2,3,3,3
  3507. FlameThrowerAnim:
  3508.  dc.w 0,1,2,3,3,3
  3509. GrenadeAnim:
  3510.  dc.w 0,1,1,1,1
  3511.  dc.w 2,2,2,2,3
  3512.  dc.w 3,3,3
  3513. ShotGunAnim:
  3514.  dc.w 0
  3515.  dcb.w 12,2
  3516.  dcb.w 19,1
  3517.  dcb.w 11,2
  3518.  dcb.w 20,0
  3519.  dc.w 3
  3520.  
  3521. GunData: dc.l 0
  3522.  
  3523. PLR1_GunData:
  3524. ; 0=Pistol 1=Big Gun
  3525. ; ammoleft,ammopershot(b),gunnoise(b),ammoinclip(b)
  3526.  
  3527. ; VISIBLE/INSTANT (0/FF)
  3528. ; damage,gotgun(b)
  3529. ; Delay (w), Lifetime of bullet (w)
  3530. ; Click or hold down (0,1)
  3531. ; BulSpd: (w)
  3532.  
  3533. ;0
  3534.  dc.w 0
  3535. ;2
  3536.  dc.b 8,3
  3537. ;4
  3538.  dc.b 15
  3539. ;5
  3540.  dc.b -1
  3541. ;6
  3542.  dc.b 4,$ff
  3543. ;8
  3544.  dc.w 5,-1,1,0
  3545. ;16
  3546.  dc.w 0,0,0
  3547. ;22
  3548.  dc.w 1
  3549.  
  3550.  ds.w 4
  3551.  
  3552. ;PlasmaGun
  3553.  
  3554.  dc.w 0
  3555.  dc.b 8,1
  3556.  dc.b 20
  3557.  dc.b 0
  3558.  dc.b 16,0
  3559.  dc.w 10,-1,0,5
  3560.  dc.w 0,0,0
  3561.  dc.w 1
  3562.  
  3563.  ds.w 4
  3564.  
  3565. ;RocketLauncher
  3566.  
  3567.  dc.w 0
  3568.  dc.b 8,9
  3569.  dc.b 2
  3570.  dc.b 0
  3571.  dc.b 12,0
  3572.  dc.w 30,-1,0,5
  3573.  dc.w 0,0,0
  3574.  dc.w 1
  3575.  
  3576.  
  3577.  ds.w 4
  3578.  
  3579. ; FlameThrower
  3580.  
  3581.  dc.w 90*8
  3582.  dc.b 1,22
  3583.  dc.b 40
  3584.  dc.b 0
  3585.  dc.b 8,$0    
  3586.  dc.w 5,50,1,4
  3587.  dc.w 0,0,0
  3588.  dc.w 1
  3589.  
  3590.  ds.w 4
  3591.  
  3592. ;Grenade launcher
  3593.  
  3594.  
  3595.  dc.w 0
  3596.  dc.b 8,9
  3597.  dc.b 6
  3598.  dc.b 0
  3599.  dc.b 8,0
  3600.  dc.w 50,100,1,5
  3601.  dc.w 60,3
  3602.  dc.w -1000
  3603.  dc.w 1
  3604.  
  3605.  ds.w 4
  3606.  
  3607. ; WORMGUN
  3608.  
  3609.  dc.w 0
  3610.  dc.b 0,0
  3611.  dc.b 0
  3612.  dc.b 0,0
  3613.  dc.w 0,-1,0,5
  3614.  dc.w 0,0
  3615.  dc.w 0
  3616.  dc.w 1
  3617.  ds.w 4
  3618.  
  3619. ; ToughMarineGun
  3620.  
  3621.  dc.w 0
  3622.  dc.b 0,0
  3623.  dc.b 0
  3624.  dc.b 0,0
  3625.  dc.w 0,-1,0,5
  3626.  dc.w 0,0
  3627.  dc.w 0
  3628.  dc.w 1
  3629.  ds.w 4
  3630.  
  3631. ; Shotgun
  3632.  
  3633. ;0
  3634.  dc.w 0
  3635. ;2
  3636.  dc.b 8,21
  3637. ;4
  3638.  dc.b 15
  3639. ;5
  3640.  dc.b -1
  3641. ;6
  3642.  dc.b 4,0
  3643. ;8
  3644.  dc.w 50,-1,1,0
  3645. ;16
  3646.  dc.w 0,0,0
  3647. ;22
  3648.  dc.w 7
  3649.  
  3650.  ds.w 4
  3651.  
  3652. PLR2_GunData:
  3653. ; 0=Pistol 1=Big Gun
  3654. ; ammoleft,ammopershot(b),gunnoise(b),ammoinclip(b)
  3655.  
  3656. ; VISIBLE/INSTANT (0/FF)
  3657. ; damage,gotgun(b)
  3658. ; Delay (w)
  3659.  
  3660. ;0
  3661.  dc.w 0
  3662. ;2
  3663.  dc.b 8,3
  3664. ;4
  3665.  dc.b 15
  3666. ;5
  3667.  dc.b -1
  3668. ;6
  3669.  dc.b 4,$ff
  3670. ;8
  3671.  dc.w 5,-1,1,0
  3672. ;16
  3673.  dc.w 0,0,0
  3674. ;22
  3675.  dc.w 1
  3676.  
  3677.  ds.w 4
  3678.  
  3679. ;PlasmaGun
  3680.  
  3681.  dc.w 0
  3682.  dc.b 8,1
  3683.  dc.b 20
  3684.  dc.b 0
  3685.  dc.b 16,0
  3686.  dc.w 10,-1,0,5
  3687.  dc.w 0,0,0
  3688.  dc.w 1
  3689.  
  3690.  ds.w 4
  3691.  
  3692. ;RocketLauncher
  3693.  
  3694.  dc.w 0
  3695.  dc.b 8,9
  3696.  dc.b 2
  3697.  dc.b 0
  3698.  dc.b 12,0
  3699.  dc.w 30,-1,0,5
  3700.  dc.w 0,0,0
  3701.  dc.w 1
  3702.  
  3703.  
  3704.  ds.w 4
  3705.  
  3706. ; FlameThrower
  3707.  
  3708.  dc.w 90*8
  3709.  dc.b 1,22
  3710.  dc.b 40
  3711.  dc.b 0
  3712.  dc.b 8,$0    
  3713.  dc.w 5,50,1,4
  3714.  dc.w 0,0,0
  3715.  dc.w 1
  3716.  
  3717.  ds.w 4
  3718.  
  3719. ;Grenade launcher
  3720.  
  3721.  
  3722.  dc.w 0
  3723.  dc.b 8,9
  3724.  dc.b 6
  3725.  dc.b 0
  3726.  dc.b 8,0
  3727.  dc.w 50,100,1,5
  3728.  dc.w 60,3
  3729.  dc.w -1000
  3730.  dc.w 1
  3731.  
  3732.  ds.w 4
  3733.  
  3734. ; WORMGUN
  3735.  
  3736.  dc.w 0
  3737.  dc.b 0,0
  3738.  dc.b 0
  3739.  dc.b 0,0
  3740.  dc.w 0,-1,0,5
  3741.  dc.w 0,0
  3742.  dc.w 0
  3743.  dc.w 1
  3744.  ds.w 4
  3745.  
  3746. ; ToughMarineGun
  3747.  
  3748.  dc.w 0
  3749.  dc.b 0,0
  3750.  dc.b 0
  3751.  dc.b 0,0
  3752.  dc.w 0,-1,0,5
  3753.  dc.w 0,0
  3754.  dc.w 0
  3755.  dc.w 1
  3756.  ds.w 4
  3757.  
  3758. ; Shotgun
  3759.  
  3760. ;0
  3761.  dc.w 0
  3762. ;2
  3763.  dc.b 8,21
  3764. ;4
  3765.  dc.b 15
  3766. ;5
  3767.  dc.b -1
  3768. ;6
  3769.  dc.b 4,0
  3770. ;8
  3771.  dc.w 50,-1,1,0
  3772. ;16
  3773.  dc.w 0,0,0
  3774. ;22
  3775.  dc.w 7
  3776.  
  3777.  ds.w 4
  3778.  
  3779.  
  3780.  
  3781. protA: dc.w 0
  3782.  
  3783. Path:
  3784. ; incbin "testpath"
  3785. endpath:
  3786. pathpt: dc.l Path
  3787.  
  3788.  
  3789. PLR1KEYS: dc.b 0
  3790. PLR1PATH: dc.b 0
  3791. PLR1MOUSE: dc.b -1
  3792. PLR1JOY: dc.b 0
  3793. PLR2KEYS: dc.b 0
  3794. PLR2PATH: dc.b 0
  3795. PLR2MOUSE: dc.b -1
  3796. PLR2JOY: dc.b 0
  3797.  
  3798.  even
  3799.  
  3800. PLR1_bobble: dc.w 0
  3801. PLR2_bobble: dc.w 0
  3802. xwobble: dc.l 0
  3803. xwobxoff: dc.w 0
  3804.  
  3805. xwobzoff: dc.w 0
  3806.  
  3807. PLR1_Control:
  3808.  
  3809. ; Take a snapshot of everything.
  3810.  
  3811.  move.l PLR1_xoff,d2
  3812.  move.l d2,PLR1_oldxoff
  3813.  move.l d2,oldx
  3814.  move.l PLR1_zoff,d3
  3815.  move.l d3,PLR1_oldzoff
  3816.  move.l d3,oldz
  3817.  move.l p1_xoff,d0
  3818.  move.l d0,PLR1_xoff
  3819.  move.l d0,newx
  3820.  move.l p1_zoff,d1
  3821.  move.l d1,newz
  3822.  move.l d1,PLR1_zoff
  3823.  
  3824.  move.l p1_height,PLR1_height
  3825.  
  3826.  sub.l d2,d0
  3827.  sub.l d3,d1
  3828.  move.l d0,xdiff
  3829.  move.l d1,zdiff
  3830.  move.w p1_angpos,d0
  3831.  move.w d0,PLR1_angpos
  3832.  
  3833.  move.l #SineTable,a1
  3834.  move.w (a1,d0.w),PLR1_sinval
  3835.  add.w #2048,d0
  3836.  and.w #8190,d0
  3837.  move.w (a1,d0.w),PLR1_cosval
  3838.  
  3839.  move.l p1_yoff,d0
  3840.  move.w p1_bobble,d1
  3841.  move.w (a1,d1.w),d1
  3842.  move.w d1,d3
  3843.  ble.s notnegative
  3844.  neg.w d1
  3845. notnegative:
  3846.  add.w #16384,d1
  3847.  asr.w #4,d1
  3848.  
  3849.  tst.b PLR1_Ducked
  3850.  bne.s .notdouble
  3851.  add.w d1,d1
  3852. .notdouble
  3853.  ext.l d1
  3854.  move.l PLR1_height,d4
  3855.  sub.l d1,d4
  3856.  add.l d1,d0
  3857.  
  3858.  cmp.b #'s',mors
  3859.  beq.s .otherwob
  3860.  asr.w #6,d3
  3861.  ext.l d3
  3862.  move.l d3,xwobble
  3863.  move.w PLR1_sinval,d1
  3864.  muls d3,d1
  3865.  move.w PLR1_cosval,d2
  3866.  muls d3,d2
  3867.  swap d1
  3868.  swap d2
  3869.  asr.w #7,d1
  3870.  move.w d1,xwobxoff
  3871.  asr.w #7,d2
  3872.  neg.w d2
  3873.  move.w d2,xwobzoff
  3874. .otherwob
  3875.  
  3876.  move.l d0,PLR1_yoff
  3877.  move.l d0,newy
  3878.  move.l d0,oldy
  3879.  
  3880.  move.l d4,thingheight
  3881.  move.l #40*256,StepUpVal
  3882.  tst.b PLR1_Ducked
  3883.  beq.s .okbigstep
  3884.  move.l #10*256,StepUpVal
  3885. .okbigstep:
  3886.  
  3887.  move.l #$1000000,StepDownVal
  3888.  
  3889.  move.l PLR1_Roompt,a0
  3890.  move.w ToTelZone(a0),d0
  3891.  blt .noteleport
  3892.  
  3893.  move.w ToTelX(a0),newx
  3894.  move.w ToTelZ(a0),newz
  3895.  move.w #-1,CollId
  3896.  move.l #%111111111111111111,CollideFlags
  3897.  bsr Collision
  3898.  tst.b hitwall
  3899.  beq.s .teleport
  3900.  
  3901.  move.w PLR1_xoff,newx
  3902.  move.w PLR1_zoff,newz
  3903.  bra .noteleport
  3904.  
  3905. .teleport:
  3906.  
  3907.  move.l PLR1_Roompt,a0
  3908.  move.w ToTelZone(a0),d0
  3909.  move.w ToTelX(a0),PLR1_xoff
  3910.  move.w ToTelZ(a0),PLR1_zoff
  3911.  move.l PLR1_yoff,d1
  3912.  sub.l ToZoneFloor(a0),d1
  3913.  move.l ZoneAdds,a0
  3914.  move.l (a0,d0.w*4),a0
  3915.  add.l LEVELDATA,a0
  3916.  move.l a0,PLR1_Roompt
  3917.  add.l ToZoneFloor(a0),d1
  3918.  move.l d1,PLR1s_yoff
  3919.  move.l d1,PLR1_yoff
  3920.  move.l d1,PLR1s_tyoff
  3921.  move.l PLR1_xoff,PLR1s_xoff
  3922.  move.l PLR1_zoff,PLR1s_zoff
  3923.  
  3924.  SAVEREGS
  3925.  move.w #0,Noisex
  3926.  move.w #0,Noisez
  3927.  move.w #26,Samplenum
  3928.  move.w #100,Noisevol
  3929.  move.b #$fa,IDNUM
  3930.  jsr MakeSomeNoise
  3931.  GETREGS
  3932.  
  3933.  bra .cantmove
  3934.  
  3935. .noteleport:
  3936.  
  3937.  move.l PLR1_Roompt,objroom
  3938.  move.w #%100000000,wallflags
  3939.  move.b PLR1_StoodInTop,StoodInTop
  3940.  
  3941.  move.l #%1011111110111000001,CollideFlags
  3942.  move.w #-1,CollId
  3943.  
  3944.  bsr Collision
  3945.  tst.b hitwall
  3946.  beq.s .nothitanything
  3947.  move.w oldx,PLR1_xoff
  3948.  move.w oldz,PLR1_zoff
  3949.  move.l PLR1_xoff,PLR1s_xoff
  3950.  move.l PLR1_zoff,PLR1s_zoff
  3951.  bra .cantmove
  3952. .nothitanything:
  3953.  
  3954.  move.w #40,extlen
  3955.  move.b #0,awayfromwall
  3956.  
  3957.  clr.b exitfirst
  3958.  clr.b wallbounce
  3959.  bsr MoveObject
  3960.  move.b StoodInTop,PLR1_StoodInTop
  3961.  move.l objroom,PLR1_Roompt
  3962.  move.w newx,PLR1_xoff
  3963.  move.w newz,PLR1_zoff
  3964.  move.l PLR1_xoff,PLR1s_xoff
  3965.  move.l PLR1_zoff,PLR1s_zoff
  3966.  
  3967. .cantmove:
  3968.  
  3969.  move.l PLR1_Roompt,a0
  3970.  
  3971.  move.l ToZoneFloor(a0),d0
  3972.  tst.b PLR1_StoodInTop
  3973.  beq.s notintop
  3974.  move.l ToUpperFloor(a0),d0
  3975. notintop:
  3976.  
  3977.  adda.w #ToZonePts,a0
  3978.  sub.l PLR1_height,d0
  3979.  move.l d0,PLR1s_tyoff
  3980.  move.w p1_angpos,tmpangpos
  3981.  
  3982. ; move.l (a0),a0        ; jump to viewpoint list
  3983.  * A0 is pointing at a pointer to list of points to rotate
  3984.  move.w (a0)+,d1
  3985.  ext.l d1
  3986.  add.l PLR1_Roompt,d1
  3987.  move.l d1,PLR1_PointsToRotatePtr
  3988.  tst.w (a0)+
  3989.  sne.s DRAWNGRAPHTOP
  3990.  beq.s nobackgraphics
  3991.  cmp.b #'s',mors
  3992.  beq.s nobackgraphics
  3993.  move.l a0,-(a7)
  3994.  jsr putinbackdrop 
  3995.  move.l (a7)+,a0
  3996. nobackgraphics:
  3997.  adda.w #10,a0
  3998.  move.l a0,PLR1_ListOfGraphRooms
  3999.  
  4000. *************************************************
  4001.  rts
  4002.  
  4003. DRAWNGRAPHTOP
  4004.  dc.w 0 
  4005. tstzone: dc.l 0
  4006. CollId: dc.w 0
  4007.  
  4008. PLR2_Control:
  4009.  
  4010.  PROTLCHECK a0
  4011.  
  4012. ; Take a snapshot of everything.
  4013.  
  4014.  move.l PLR2_xoff,d2
  4015.  move.l d2,PLR2_oldxoff
  4016.  move.l d2,oldx
  4017.  move.l PLR2_zoff,d3
  4018.  move.l d3,PLR2_oldzoff
  4019.  move.l d3,oldz
  4020.  move.l p2_xoff,d0
  4021.  move.l d0,PLR2_xoff
  4022.  move.l d0,newx
  4023.  move.l p2_zoff,d1
  4024.  move.l d1,newz
  4025.  move.l d1,PLR2_zoff
  4026.  
  4027.  move.l p2_height,PLR2_height
  4028.  
  4029.  sub.l d2,d0
  4030.  sub.l d3,d1
  4031.  move.l d0,xdiff
  4032.  move.l d1,zdiff
  4033.  move.w p2_angpos,d0
  4034.  move.w d0,PLR2_angpos
  4035.  
  4036.  move.l #SineTable,a1
  4037.  move.w (a1,d0.w),PLR2_sinval
  4038.  add.w #2048,d0
  4039.  and.w #8190,d0
  4040.  move.w (a1,d0.w),PLR2_cosval
  4041.  
  4042.  move.l p2_yoff,d0
  4043.  move.w p2_bobble,d1
  4044.  move.w (a1,d1.w),d1
  4045.  move.w d1,d3
  4046.  ble.s .notnegative
  4047.  neg.w d1
  4048. .notnegative:
  4049.  add.w #16384,d1
  4050.  asr.w #4,d1
  4051.  add.w d1,d1
  4052.  ext.l d1
  4053.  move.l PLR2_height,d4
  4054.  sub.l d1,d4
  4055.  add.l d1,d0
  4056.  
  4057.  cmp.b #'s',mors
  4058.  bne.s .otherwob
  4059.  asr.w #6,d3
  4060.  ext.l d3
  4061.  move.l d3,xwobble
  4062.  move.w PLR2_sinval,d1
  4063.  muls d3,d1
  4064.  move.w PLR2_cosval,d2
  4065.  muls d3,d2
  4066.  swap d1
  4067.  swap d2
  4068.  asr.w #7,d1
  4069.  move.w d1,xwobxoff
  4070.  asr.w #7,d2
  4071.  neg.w d2
  4072.  move.w d2,xwobzoff
  4073. .otherwob
  4074.  
  4075.  move.l d0,PLR2_yoff
  4076.  move.l d0,newy
  4077.  move.l d0,oldy
  4078.  
  4079.  move.l d4,thingheight
  4080.  move.l #40*256,StepUpVal
  4081.  tst.b PLR2_Ducked
  4082.  beq.s .okbigstep
  4083.  move.l #10*256,StepUpVal
  4084. .okbigstep:
  4085.  
  4086.  move.l #$1000000,StepDownVal
  4087.  
  4088.  move.l PLR2_Roompt,a0
  4089.  move.w ToTelZone(a0),d0
  4090.  blt .noteleport
  4091.  
  4092.  move.w ToTelX(a0),newx
  4093.  move.w ToTelZ(a0),newz
  4094.  move.w #-1,CollId
  4095.  move.l #%111111111111111111,CollideFlags
  4096.  bsr Collision
  4097.  tst.b hitwall
  4098.  beq.s .teleport
  4099.  
  4100.  move.w PLR2_xoff,newx
  4101.  move.w PLR2_zoff,newz
  4102.  bra .noteleport
  4103.  
  4104. .teleport:
  4105.  
  4106.  move.l PLR2_Roompt,a0
  4107.  move.w ToTelZone(a0),d0
  4108.  move.w ToTelX(a0),PLR2_xoff
  4109.  move.w ToTelZ(a0),PLR2_zoff
  4110.  move.l PLR2_yoff,d1
  4111.  sub.l ToZoneFloor(a0),d1
  4112.  move.l ZoneAdds,a0
  4113.  move.l (a0,d0.w*4),a0
  4114.  add.l LEVELDATA,a0
  4115.  move.l a0,PLR2_Roompt
  4116.  add.l ToZoneFloor(a0),d1
  4117.  move.l d1,PLR2s_yoff
  4118.  move.l d1,PLR2_yoff
  4119.  move.l d1,PLR2s_tyoff
  4120.  move.l PLR2_xoff,PLR2s_xoff
  4121.  move.l PLR2_zoff,PLR2s_zoff
  4122.  
  4123.  SAVEREGS
  4124.  move.w #0,Noisex
  4125.  move.w #0,Noisez
  4126.  move.w #26,Samplenum
  4127.  move.w #100,Noisevol
  4128.  move.b #$fa,IDNUM
  4129.  jsr MakeSomeNoise
  4130.  GETREGS
  4131.  
  4132.  bra .cantmove
  4133.  
  4134. .noteleport:
  4135.  
  4136.  move.l PLR2_Roompt,objroom
  4137.  move.w #%100000000000,wallflags
  4138.  move.b PLR2_StoodInTop,StoodInTop
  4139.  
  4140.  move.l #%1011111010111100001,CollideFlags
  4141.  move.w #-1,CollId
  4142.  
  4143.  bsr Collision
  4144.  tst.b hitwall
  4145.  beq.s .nothitanything
  4146.  move.w oldx,PLR2_xoff
  4147.  move.w oldz,PLR2_zoff
  4148.  move.l PLR2_xoff,PLR2s_xoff
  4149.  move.l PLR2_zoff,PLR2s_zoff
  4150.  bra .cantmove
  4151. .nothitanything:
  4152.  
  4153.  move.w #40,extlen
  4154.  move.b #0,awayfromwall
  4155.  
  4156.  clr.b exitfirst
  4157.  clr.b wallbounce
  4158.  bsr MoveObject
  4159.  move.b StoodInTop,PLR2_StoodInTop
  4160.  move.l objroom,PLR2_Roompt
  4161.  move.w newx,PLR2_xoff
  4162.  move.w newz,PLR2_zoff
  4163.  move.l PLR2_xoff,PLR2s_xoff
  4164.  move.l PLR2_zoff,PLR2s_zoff
  4165.  
  4166. .cantmove
  4167.  
  4168.  move.l PLR2_Roompt,a0
  4169.  
  4170.  move.l ToZoneFloor(a0),d0
  4171.  tst.b PLR2_StoodInTop
  4172.  beq.s .notintop
  4173.  move.l ToUpperFloor(a0),d0
  4174. .notintop:
  4175.  
  4176.  adda.w #ToZonePts,a0
  4177.  sub.l PLR2_height,d0
  4178.  move.l d0,PLR2s_tyoff
  4179.  move.w p2_angpos,tmpangpos
  4180.  
  4181. ; move.l (a0),a0        ; jump to viewpoint list
  4182.  * A0 is pointing at a pointer to list of points to rotate
  4183.  move.w (a0)+,d1
  4184.  ext.l d1
  4185.  add.l PLR2_Roompt,d1
  4186.  move.l d1,PLR2_PointsToRotatePtr
  4187.  tst.w (a0)+
  4188.  beq.s .nobackgraphics
  4189.  cmp.b #'s',mors
  4190.  bne.s .nobackgraphics
  4191.  move.l a0,-(a7)
  4192.  jsr putinbackdrop 
  4193.  move.l (a7)+,a0
  4194. .nobackgraphics:
  4195.  adda.w #10,a0
  4196.  move.l a0,PLR2_ListOfGraphRooms
  4197.  
  4198. *****************************************************
  4199.  
  4200.  rts
  4201.  
  4202.  
  4203. KeyMap: ds.b 256
  4204.  
  4205. fillscrnwater:
  4206.  dc.w 0
  4207. DONTDOGUN:
  4208.  dc.w 0
  4209.  
  4210. temptemp: ds.l 200
  4211. temptempptr: dc.l 0
  4212.  
  4213. DrawDisplay:
  4214.  
  4215.  move.l #temptemp,temptempptr
  4216.  
  4217.  clr.b fillscrnwater
  4218.  
  4219.  move.l #SineTable,a0
  4220.  move.w angpos,d0
  4221.  move.w (a0,d0.w),d6
  4222.  adda.w #2048,a0
  4223.  move.w (a0,d0.w),d7
  4224.  move.w d6,sinval
  4225.  move.w d7,cosval
  4226.  
  4227.  move.l #KeyMap,a5
  4228.  moveq #0,d5
  4229.  move.b look_behind_key,d5
  4230.  tst.b (a5,d5.w)
  4231.  sne DONTDOGUN
  4232.  beq.s .nolookback
  4233.  neg.w cosval
  4234.  neg.w sinval
  4235. .nolookback:
  4236.  
  4237.  
  4238.  move.l yoff,d0
  4239.  asr.l #8,d0
  4240.  move.w d0,d1
  4241.  add.w #256-32,d1
  4242.  and.w #255,d1
  4243.  move.w d1,wallyoff
  4244.  move.l yoff,d0
  4245.  asr.l #6,d0
  4246.  move.w d0,flooryoff
  4247.  
  4248.  move.w xoff,d6
  4249.  move.w d6,d3
  4250.  asr.w #1,d3
  4251.  add.w d3,d6
  4252.  asr.w #1,d6
  4253.  move.w d6,xoff34
  4254.  
  4255.  move.w zoff,d6
  4256.  move.w d6,d3
  4257.  asr.w #1,d3
  4258.  add.w d3,d6
  4259.  asr.w #1,d6
  4260.  move.w d6,zoff34
  4261.  
  4262.  bsr RotateLevelPts
  4263.  bsr RotateObjectPts
  4264.  bsr CalcPLR1InLine
  4265.  
  4266.  
  4267.  cmp.b #'n',mors
  4268.  bne.s doplr2too
  4269.  move.l PLR2_Obj,a0
  4270.  move.w #-1,12(a0)
  4271.  move.w #-1,GraphicRoom(a0)
  4272.  bra noplr2either
  4273.  
  4274. doplr2too:
  4275.  bsr CalcPLR2InLine
  4276. noplr2either:
  4277.  
  4278.  move.l endoflist,a0
  4279. subroomloop:
  4280.  move.w -(a0),d7
  4281.  blt jumpoutofrooms
  4282.  
  4283. ; bsr setlrclip
  4284. ; move.w leftclip,d0
  4285. ; cmp.w rightclip,d0
  4286. ; bge subroomloop
  4287.  move.l a0,-(a7)
  4288.  
  4289.  move.l ZoneAdds,a0
  4290.  move.l (a0,d7.w*4),a0
  4291.  add.l LEVELDATA,a0
  4292.  move.l ToZoneRoof(a0),SplitHeight
  4293.  move.l a0,ROOMBACK
  4294.  
  4295.  move.l ZoneGraphAdds,a0
  4296.  move.l 4(a0,d7.w*8),a2
  4297.  move.l (a0,d7.w*8),a0
  4298.  
  4299.  add.l LEVELGRAPHICS,a0
  4300.  add.l LEVELGRAPHICS,a2
  4301.  move.l a2,ThisRoomToDraw+4
  4302.  move.l a0,ThisRoomToDraw
  4303.  
  4304.  move.l ListOfGraphRooms,a1
  4305.  
  4306.  
  4307.  
  4308. finditit:
  4309.  tst.w (a1)
  4310.  blt nomoretodoatall
  4311.  cmp.w (a1),d7
  4312.  beq outoffind
  4313.  adda.w #8,a1
  4314.  bra finditit
  4315.  
  4316. outoffind:
  4317.  
  4318.  move.l a1,-(a7)
  4319.  
  4320.  
  4321.  move.w #0,leftclip
  4322.  move.w RIGHTX,rightclip
  4323.  moveq #0,d7
  4324.  move.w 2(a1),d7
  4325.  blt.s outofrcliplop
  4326.  move.l LEVELCLIPS,a0
  4327.  lea (a0,d7.l*2),a0
  4328.  
  4329.  tst.w (a0)
  4330.  blt outoflcliplop
  4331.  
  4332.  bsr NEWsetlclip
  4333.  
  4334. intolcliplop:        ; clips
  4335.  tst.w (a0)
  4336.  blt outoflcliplop
  4337.  
  4338.  bsr NEWsetlclip 
  4339.  bra intolcliplop
  4340.  
  4341. outoflcliplop:
  4342.  
  4343.  addq #2,a0
  4344.  
  4345.  tst.w (a0)
  4346.  blt outofrcliplop
  4347.  
  4348.  bsr NEWsetrclip
  4349.  
  4350. intorcliplop:        ; clips
  4351.  tst.w (a0)
  4352.  blt outofrcliplop
  4353.  
  4354.  bsr NEWsetrclip 
  4355.  bra intorcliplop
  4356.  
  4357. outofrcliplop:
  4358.  
  4359.  
  4360.  move.w leftclip,d0
  4361.  cmp.w RIGHTX,d0
  4362.  bge dontbothercantseeit
  4363.  move.w rightclip,d1
  4364.  blt dontbothercantseeit
  4365.  cmp.w d1,d0
  4366.  bge dontbothercantseeit
  4367.  
  4368.  move.l yoff,d0
  4369.  cmp.l SplitHeight,d0
  4370.  blt botfirst
  4371.  
  4372.  move.l ThisRoomToDraw+4,a0
  4373.  cmp.l LEVELGRAPHICS,a0
  4374.  beq.s noupperroom
  4375.  st DOUPPER
  4376.  
  4377.  move.l ROOMBACK,a1
  4378.  move.l ToUpperRoof(a1),TOPOFROOM
  4379.  move.l ToUpperFloor(a1),BOTOFROOM
  4380.  
  4381.  move.l #CurrentPointBrights+4,PointBrightsPtr
  4382.  bsr dothisroom
  4383. noupperroom:
  4384.  move.l ThisRoomToDraw,a0
  4385.  clr.b DOUPPER
  4386.  move.l #CurrentPointBrights,PointBrightsPtr
  4387.  
  4388.  move.l ROOMBACK,a1
  4389.  move.l ToZoneRoof(a1),d0
  4390.  move.l d0,TOPOFROOM
  4391.  move.l ToZoneFloor(a1),d1
  4392.  move.l d1,BOTOFROOM
  4393.  
  4394.  move.l ToZoneWater(a1),d2
  4395.  cmp.l yoff,d2
  4396.  blt.s .abovefirst
  4397.  move.l d2,BEFOREWATTOP
  4398.  move.l d1,BEFOREWATBOT
  4399.  move.l d2,AFTERWATBOT
  4400.  move.l d0,AFTERWATTOP
  4401.  bra.s .belowfirst
  4402. .abovefirst:
  4403.  move.l d0,BEFOREWATTOP
  4404.  move.l d2,BEFOREWATBOT
  4405.  move.l d1,AFTERWATBOT
  4406.  move.l d2,AFTERWATTOP
  4407. .belowfirst:
  4408.  
  4409.  bsr dothisroom
  4410.  
  4411.  bra dontbothercantseeit
  4412. botfirst:
  4413.  
  4414.  move.l ThisRoomToDraw,a0
  4415.  clr.b DOUPPER
  4416.  move.l #CurrentPointBrights,PointBrightsPtr
  4417.  
  4418.  move.l ROOMBACK,a1
  4419.  move.l ToZoneRoof(a1),d0
  4420.  move.l d0,TOPOFROOM
  4421.  move.l ToZoneFloor(a1),d1
  4422.  move.l d1,BOTOFROOM
  4423.  
  4424.  move.l ToZoneWater(a1),d2
  4425.  cmp.l yoff,d2
  4426.  blt.s .abovefirst
  4427.  move.l d2,BEFOREWATTOP
  4428.  move.l d1,BEFOREWATBOT
  4429.  move.l d2,AFTERWATBOT
  4430.  move.l d0,AFTERWATTOP
  4431.  bra.s .belowfirst
  4432. .abovefirst:
  4433.  move.l d0,BEFOREWATTOP
  4434.  move.l d2,BEFOREWATBOT
  4435.  move.l d1,AFTERWATBOT
  4436.  move.l d2,AFTERWATTOP
  4437. .belowfirst:
  4438.  
  4439.  
  4440.  bsr dothisroom
  4441.  move.l ThisRoomToDraw+4,a0
  4442.  cmp.l LEVELGRAPHICS,a0
  4443.  beq.s noupperroom2
  4444.  move.l #CurrentPointBrights+4,PointBrightsPtr
  4445.  
  4446.  move.l ROOMBACK,a1
  4447.  move.l ToUpperRoof(a1),TOPOFROOM
  4448.  move.l ToUpperFloor(a1),BOTOFROOM
  4449.  
  4450.  st DOUPPER
  4451.  bsr dothisroom
  4452. noupperroom2:
  4453.  
  4454. dontbothercantseeit:
  4455. pastemp:
  4456.  
  4457.  move.l (a7)+,a1
  4458.  move.l ThisRoomToDraw,a0
  4459.  move.w (a0),d7
  4460.  
  4461.  adda.w #8,a1
  4462.  bra finditit
  4463.  
  4464. nomoretodoatall:
  4465.  
  4466.  move.l (a7)+,a0
  4467.  
  4468.  bra subroomloop
  4469.  
  4470. jumpoutofrooms:
  4471.  
  4472.  tst.b DONTDOGUN
  4473.  bne NOGUNLOOK
  4474.  
  4475.  cmp.b #'s',mors
  4476.  beq.s drawslavegun
  4477.  
  4478.  moveq #0,d0
  4479.  move.b PLR1_GunSelected,d0
  4480.  moveq #0,d1
  4481.  move.b PLR1_GunFrame,d1
  4482. ; bsr DRAWINGUN
  4483.  bra drawngun
  4484.  
  4485. drawslavegun
  4486.  moveq #0,d0
  4487.  move.b PLR2_GunSelected,d0
  4488.  moveq #0,d1
  4489.  move.b PLR2_GunFrame,d1
  4490. ; bsr DRAWINGUN
  4491.  
  4492. drawngun:
  4493.  
  4494. NOGUNLOOK:
  4495.  
  4496.  moveq #0,d1
  4497.  move.b PLR1_GunFrame,d1
  4498.  sub.w TempFrames,d1
  4499.  bgt.s .nn
  4500.  moveq #0,d1
  4501. .nn
  4502.  move.b d1,PLR1_GunFrame
  4503.  
  4504.  ble.s .donefire
  4505.  sub.b #1,PLR1_GunFrame
  4506. .donefire:
  4507.  
  4508.  moveq #0,d1
  4509.  move.b PLR2_GunFrame,d1
  4510.  sub.w TempFrames,d1
  4511.  bgt.s .nn2
  4512.  moveq #0,d1
  4513. .nn2
  4514.  move.b d2,PLR2_GunFrame
  4515.  
  4516.  ble.s .donefire2
  4517.  sub.b #1,PLR2_GunFrame
  4518. .donefire2:
  4519.  
  4520.  tst.b DOANYWATER
  4521.  beq.s nowaterfull
  4522.  
  4523.  move.w #239,d0
  4524.  move.l FASTBUFFER,a0
  4525.  tst.b fillscrnwater
  4526.  beq nowaterfull
  4527.  bgt oknothalf
  4528.  moveq #119,d0
  4529.  add.l #320*120*2,a0
  4530. oknothalf:
  4531.  
  4532.  bclr.b #1,$bfe001
  4533.  
  4534.  move.l #brightentab+512*4,a2
  4535.  moveq #0,d2
  4536.  
  4537. fw:
  4538.  move.w #287,d1
  4539. fwa:
  4540.  move.b (a0),d2
  4541.  move.w (a2,d2.w*2),(a0)+
  4542.  dbra d1,fwa
  4543.  add.w #32*2,a0
  4544.  dbra d0,fw
  4545.  
  4546. ; move.l frompt,a0
  4547. ; add.l #104*4*60,a0
  4548. ; 
  4549. ; move.w #31,d0
  4550. ;fw:
  4551. ; move.w d5,d1
  4552. ; move.l a0,a1
  4553. ;fwd:
  4554. ;val SET 104*4*19
  4555. ; REPT 20
  4556. ; and.w #$ff,val(a1)
  4557. ;val SET val-104*4
  4558. ; ENDR
  4559. ; sub.l #104*4*20,a1
  4560. ; dbra d1,fwd
  4561. ; addq #4,a0
  4562. ; dbra d0,fw
  4563. ;
  4564. ; addq #4,a0
  4565. ;
  4566. ; move.w #31,d0
  4567. ;sw:
  4568. ; move.w d5,d1
  4569. ; move.l a0,a1
  4570. ;swd:
  4571. ;val SET 104*4*19
  4572. ; REPT 20
  4573. ; and.w #$ff,val(a1)
  4574. ;val SET val-104*4
  4575. ; ENDR
  4576. ; sub.l #104*4*20,a1
  4577. ; dbra d1,swd
  4578. ; addq #4,a0
  4579. ; dbra d0,sw
  4580. ;
  4581. ; addq #4,a0
  4582. ;
  4583. ; move.w #31,d0
  4584. ;tw:
  4585. ; move.w d5,d1
  4586. ; move.l a0,a1
  4587. ;twd:
  4588. ;val SET 104*4*19
  4589. ; REPT 20
  4590. ; and.w #$ff,val(a1)
  4591. ;val SET val-104*4
  4592. ; ENDR
  4593. ; sub.l #104*4*20,a1
  4594. ; dbra d1,twd
  4595. ; addq #4,a0
  4596. ; dbra d0,tw
  4597. ;
  4598.  rts
  4599.  
  4600. nowaterfull:
  4601.  bset.b #1,$bfe001
  4602.  rts
  4603.  
  4604. prot9: dc.w 0
  4605.  
  4606. TempBuffer: ds.l 100 
  4607.  
  4608. ClipTable: ds.l 30
  4609. EndOfClipPt: dc.l 0
  4610. DOUPPER: dc.w 0
  4611.  
  4612. RealTable:
  4613.  dc.l prot1-78935450
  4614.  dc.l prot2-78935450
  4615.  dc.l prot3-78935450
  4616.  dc.l prot4-78935450
  4617.  dc.l prot5-78935450
  4618.  dc.l prot6-78935450
  4619.  dc.l prot7-78935450
  4620.  dc.l prot8-78935450
  4621.  dc.l prot9-78935450
  4622.  dc.l protA-78935450
  4623.  
  4624. dothisroom
  4625.  
  4626.  move.w (a0)+,d0
  4627.  move.w d0,currzone
  4628.  move.w d0,d1
  4629.  muls #40,d1
  4630.  add.l #BIGMAP,d1
  4631.  move.l d1,BIGPTR
  4632.  move.w d0,d1
  4633.  ext.l d1
  4634.  asl.w #2,d1
  4635.  add.l #COMPACTMAP,d1
  4636.  move.l d1,COMPACTPTR
  4637.  add.l #4,d1
  4638.  cmp.l LASTZONE,d1
  4639.  ble.s .nochange
  4640.  move.l d1,LASTZONE
  4641. .nochange:
  4642.  
  4643.  move.l #ZoneBrightTable,a1
  4644.  move.l (a1,d0.w*4),d1
  4645.  tst.b DOUPPER
  4646.  bne.s .okbot
  4647.  swap d1
  4648. .okbot:
  4649.  move.w d1,ZoneBright
  4650.  
  4651. polyloop:
  4652.  move.w (a0)+,d0
  4653.  move.w d0,WALLIDENT
  4654.  and.w #$ff,d0
  4655.  tst.b d0
  4656.  blt jumpoutofloop
  4657.  beq itsawall
  4658.  cmp.w #3,d0
  4659.  beq itsasetclip
  4660.  blt itsafloor
  4661.  cmp.w #4,d0
  4662.  beq itsanobject
  4663.  cmp.w #5,d0
  4664.  beq itsanarc
  4665.  cmp.w #6,d0
  4666.  beq itsalightbeam
  4667.  cmp.w #7,d0
  4668.  beq.s itswater
  4669.  cmp.w #9,d0
  4670.  ble itsachunkyfloor
  4671.  cmp.w #11,d0
  4672.  ble itsabumpyfloor
  4673.  cmp.w #12,d0
  4674.  beq.s itsbackdrop
  4675.  cmp.w #13,d0
  4676.  beq.s itsaseewall
  4677.  
  4678.  bra polyloop
  4679.  
  4680. itsaseewall:
  4681.  st seethru
  4682.  jsr itsawalldraw
  4683.  bra polyloop
  4684.  
  4685. itsbackdrop:
  4686.  jsr putinbackdrop
  4687.  bra polyloop
  4688.  
  4689. itswater:
  4690.  PROTHCHECK
  4691.  move.w #2,SMALLIT
  4692.  move.w #3,d0
  4693.  clr.b gourfloor
  4694.  move.l #FloorLine,LineToUse
  4695.  st usewater
  4696.  clr.b usebumps
  4697.  jsr itsafloordraw
  4698.  bra polyloop
  4699.  
  4700. itsanarc:
  4701.  jsr CurveDraw
  4702.  bra polyloop
  4703.  
  4704. itsanobject:
  4705.  jsr ObjDraw
  4706.  bra polyloop
  4707.  
  4708. itsalightbeam:
  4709.  jsr LightDraw
  4710.  bra polyloop
  4711.  
  4712. itsabumpyfloor:
  4713.  move.w #1,SMALLIT
  4714.  sub.w #9,d0
  4715.  st usebumps
  4716.  st smoothbumps
  4717.  clr.b usewater
  4718.  move.l #BumpLine,LineToUse
  4719.  jsr itsafloordraw
  4720.  bra polyloop
  4721.  
  4722. itsachunkyfloor:
  4723.  move.w #1,SMALLIT
  4724.  subq.w #7,d0
  4725.  st usebumps
  4726.  sub.w #12,topclip
  4727. ; add.w #10,botclip
  4728.  clr.b smoothbumps
  4729.  clr.b usewater
  4730.  move.l #BumpLine,LineToUse
  4731.  jsr itsafloordraw
  4732.  add.w #12,topclip
  4733. ; sub.w #10,botclip
  4734.  bra polyloop 
  4735.  
  4736. itsafloor:
  4737.  
  4738.  move.l PointBrightsPtr,FloorPtBrights
  4739.  
  4740.  move.w currzone,d1
  4741.  muls #80,d1
  4742.  
  4743.  cmp.w #2,d0
  4744.  bne.s .nfl
  4745.  add.l #2,d1
  4746. .nfl
  4747.  add.l d1,FloorPtBrights
  4748.  
  4749.  move.w #1,SMALLIT
  4750.  
  4751.  movem.l a0/d0,-(a7)
  4752.  move.l $4.w,a6
  4753.  jsr _LVOSuperState(a6)
  4754.  move.l d0,SSTACK
  4755.  movem.l (a7)+,a0/d0
  4756.  
  4757.  move.l THEFLOORLINE,LineToUse
  4758. * 1,2 = floor/roof
  4759.  clr.b usewater
  4760.  clr.b usebumps
  4761.  move.b GOURSEL,gourfloor    
  4762.  jsr itsafloordraw
  4763.  move.l a0,-(a7)
  4764.  move.l $4.w,a6
  4765.  move.l SSTACK,d0
  4766.  jsr _LVOUserState(a6)
  4767.  move.l (a7)+,a0
  4768.  bra polyloop
  4769. itsasetclip:
  4770.  bra polyloop
  4771. itsawall:
  4772.  clr.b seethru
  4773. ; move.l #stripbuffer,a1
  4774.  jsr itsawalldraw
  4775.  bra polyloop
  4776.  
  4777. jumpoutofloop:
  4778.  rts
  4779.  
  4780. LASTZONE: dc.l 0
  4781. COMPACTPTR: dc.l 0
  4782. BIGPTR: dc.l 0
  4783. WALLIDENT: dc.w 0
  4784. SMALLIT: dc.w 0
  4785. GOURSEL: dc.w 0
  4786. ThisRoomToDraw: dc.l 0,0
  4787. SplitHeight: dc.l 0
  4788.  
  4789.  include "ab3:source_4000/OrderZones"
  4790.  
  4791. ReadMouse:
  4792.  move.l #$dff000,a6
  4793.  clr.l d0
  4794.  clr.l d1
  4795.  move.w $a(a6),d0
  4796.  lsr.w #8,d0
  4797.  ext.l d0
  4798.  move.w d0,d3
  4799.  move.w oldmy,d2
  4800.  sub.w d2,d0
  4801.  
  4802.  cmp.w #127,d0
  4803.  blt nonegy
  4804.  move.w #255,d1
  4805.  sub.w d0,d1
  4806.  move.w d1,d0
  4807.  neg.w d0
  4808. nonegy:
  4809.  
  4810.  cmp.w #-127,d0
  4811.  bge nonegy2
  4812.  move.w #255,d1
  4813.  add.w d0,d1
  4814.  move.w d1,d0
  4815. nonegy2:
  4816.  
  4817.  add.b d0,d2
  4818.  add.w d0,oldy2
  4819.  move.w d2,oldmy
  4820.  move.w d2,d0
  4821.  
  4822.  move.w oldy2,d0
  4823.  move.w d0,ymouse
  4824.  
  4825.  clr.l d0
  4826.  clr.l d1
  4827.  move.w $a(a6),d0
  4828.  ext.w d0
  4829.  ext.l d0
  4830.  move.w d0,d3
  4831.  move.w oldmx,d2
  4832.  sub.w d2,d0
  4833.  
  4834.  cmp.w #127,d0
  4835.  blt nonegx
  4836.  move.w #255,d1
  4837.  sub.w d0,d1
  4838.  move.w d1,d0
  4839.  neg.w d0
  4840. nonegx:
  4841.  
  4842.  cmp.w #-127,d0
  4843.  bge nonegx2
  4844.  move.w #255,d1
  4845.  add.w d0,d1
  4846.  move.w d1,d0
  4847. nonegx2:
  4848.  
  4849.  add.b d0,d2
  4850.  move.w d0,d1
  4851.  move.w d2,oldmx
  4852.  
  4853.  move.w #$0,$dff034
  4854.  
  4855.  add.w d0,oldx2
  4856.  move.w oldx2,d0
  4857.  and.w #2047,d0
  4858.  move.w d0,oldx2
  4859.  
  4860.  asl.w #2,d0
  4861.  sub.w prevx,d0
  4862.  add.w d0,prevx
  4863.  add.w d0,angpos
  4864.  move.w #0,lrs
  4865.  rts
  4866.  
  4867. noturn:
  4868.  
  4869. ; got to move lr instead. 
  4870.  
  4871. ; d1 = speed moved l/r
  4872.  
  4873.  move.w d1,lrs
  4874.  
  4875.  rts
  4876.  
  4877. lrs: dc.w 0
  4878. prevx: dc.w 0
  4879.  
  4880. angpos: dc.w 0
  4881. mang: dc.w 0
  4882. oldymouse: dc.w 0
  4883. xmouse: dc.w 0
  4884. ymouse: dc.w 0
  4885. oldx2: dc.w 0
  4886. oldmx: dc.w 0
  4887. oldmy: dc.w 0
  4888. oldy2: dc.w 0
  4889.  
  4890. MAPON: dc.w $ffff
  4891.  
  4892. RotateLevelPts:
  4893.  
  4894.  tst.b MAPON
  4895.  beq ONLYTHELONELY
  4896.  
  4897.  move.w sinval,d6
  4898.  swap d6
  4899.  move.w cosval,d6
  4900.  move.l Points,a3
  4901.  move.l #Rotated,a1
  4902.  move.l #OnScreen,a2
  4903.  move.w xoff,d4
  4904.  move.w zoff,d5
  4905.  
  4906. ; move.w #$c40,$dff106
  4907. ; move.w #$f00,$dff180
  4908.  
  4909.  move.w NumLevPts,d7
  4910.  
  4911.  tst.b FULLSCR
  4912.  bne BIGALL
  4913.  
  4914. pointrotlop2:
  4915.  move.w (a3)+,d0
  4916.  sub.w d4,d0
  4917.  move.w d0,d2
  4918.  move.w (a3)+,d1
  4919.  sub.w d5,d1
  4920.  muls d6,d2
  4921.  swap d6
  4922.  move.w d1,d3
  4923.  muls d6,d3
  4924.  sub.l d3,d2
  4925.  add.l d2,d2
  4926.  swap d2
  4927.  ext.l d2
  4928.  asl.l #7,d2
  4929.  add.l xwobble,d2
  4930.  move.l d2,(a1)+
  4931.  
  4932.  muls d6,d0
  4933.  swap d6
  4934.  muls d6,d1
  4935.  add.l d0,d1
  4936.  asl.l #1,d1
  4937.  swap d1
  4938. ; ext.l d1
  4939. ; divs #3,d1
  4940.  move.l d1,(a1)+
  4941.  
  4942.  tst.w d1
  4943.  bgt.s ptnotbehind
  4944.  tst.w d2
  4945.  bgt.s onrightsomewhere
  4946.  move.w #0,d2
  4947.  bra putin
  4948. onrightsomewhere:
  4949.  move.w RIGHTX,d2
  4950.  bra putin
  4951. ptnotbehind:
  4952.  
  4953.  divs d1,d2
  4954.  add.w MIDDLEX,d2
  4955. putin:
  4956.  move.w d2,(a2)+
  4957.  
  4958.  dbra d7,pointrotlop2
  4959. outofpointrot:
  4960.   rts
  4961.  
  4962.  
  4963. BIGALL:
  4964.  
  4965. pointrotlop2B:
  4966.  move.w (a3)+,d0
  4967.  sub.w d4,d0
  4968.  move.w d0,d2
  4969.  move.w (a3)+,d1
  4970.  sub.w d5,d1
  4971.  muls d6,d2
  4972.  swap d6
  4973.  move.w d1,d3
  4974.  muls d6,d3
  4975.  sub.l d3,d2
  4976.  add.l d2,d2
  4977.  swap d2
  4978.  ext.l d2
  4979.  asl.l #7,d2
  4980.  add.l xwobble,d2
  4981.  move.l d2,(a1)+
  4982.  
  4983.  muls d6,d0
  4984.  swap d6
  4985.  muls d6,d1
  4986.  add.l d0,d1
  4987.  asl.l #2,d1
  4988.  swap d1
  4989.  ext.l d1
  4990.  divs #3,d1
  4991.  move.l d1,(a1)+
  4992.  
  4993.  tst.w d1
  4994.  bgt.s ptnotbehindB
  4995.  tst.w d2
  4996.  bgt.s onrightsomewhereB
  4997.  move.w #0,d2
  4998.  bra putinB
  4999. onrightsomewhereB:
  5000.  move.w RIGHTX,d2
  5001.  bra putinB
  5002. ptnotbehindB:
  5003.  
  5004.  divs d1,d2
  5005.  add.w MIDDLEX,d2
  5006. putinB:
  5007.  move.w d2,(a2)+
  5008.  
  5009.  dbra d7,pointrotlop2B
  5010.   rts
  5011.  
  5012.  
  5013. ONLYTHELONELY:
  5014.  
  5015.  move.w sinval,d6
  5016.  swap d6
  5017.  move.w cosval,d6
  5018.  
  5019.  move.l PointsToRotatePtr,a0
  5020.  move.l Points,a3
  5021.  move.l #Rotated,a1
  5022.  move.l #OnScreen,a2
  5023.  move.w xoff,d4
  5024.  move.w zoff,d5
  5025.  
  5026. ; move.w #$c40,$dff106
  5027. ; move.w #$f00,$dff180
  5028.  
  5029.  tst.b FULLSCR
  5030.  bne BIGLONELY
  5031.  
  5032. pointrotlop:
  5033.  move.w (a0)+,d7
  5034.  blt outofpointrot
  5035.  
  5036.  move.w (a3,d7*4),d0
  5037.  sub.w d4,d0
  5038.  move.w d0,d2
  5039.  move.w 2(a3,d7*4),d1
  5040.  sub.w d5,d1
  5041.  muls d6,d2
  5042.  swap d6
  5043.  move.w d1,d3
  5044.  muls d6,d3
  5045.  sub.l d3,d2
  5046.  add.l d2,d2
  5047.  swap d2
  5048.  ext.l d2
  5049.  asl.l #7,d2
  5050.  add.l xwobble,d2
  5051.  move.l d2,(a1,d7*8)
  5052.  
  5053.  muls d6,d0
  5054.  swap d6
  5055.  muls d6,d1
  5056.  add.l d0,d1
  5057.  asl.l #1,d1
  5058.  swap d1
  5059. ; ext.l d1
  5060. ; divs #3,d1
  5061.  move.l d1,4(a1,d7*8)
  5062.  
  5063.  tst.w d1
  5064.  bgt.s .ptnotbehind
  5065.  tst.w d2
  5066.  bgt.s .onrightsomewhere
  5067.  move.w #0,d2
  5068.  bra .putin
  5069. .onrightsomewhere:
  5070.  move.w RIGHTX,d2
  5071.  bra .putin
  5072. .ptnotbehind:
  5073.  
  5074.  divs d1,d2
  5075.  add.w MIDDLEX,d2
  5076. .putin:
  5077.  move.w d2,(a2,d7*2)
  5078.  
  5079.  bra pointrotlop
  5080.  
  5081. ; move.w #$c40,$dff106
  5082. ; move.w #$ff0,$dff180
  5083.  
  5084.  rts
  5085.  
  5086. BIGLONELY:
  5087.  
  5088. .pointrotlop:
  5089.  move.w (a0)+,d7
  5090.  blt.s .outofpointrot
  5091.  
  5092.  move.w (a3,d7*4),d0
  5093.  sub.w d4,d0
  5094.  move.w d0,d2
  5095.  move.w 2(a3,d7*4),d1
  5096.  sub.w d5,d1
  5097.  muls d6,d2
  5098.  swap d6
  5099.  move.w d1,d3
  5100.  muls d6,d3
  5101.  sub.l d3,d2
  5102.  add.l d2,d2
  5103.  swap d2
  5104.  ext.l d2
  5105.  asl.l #7,d2
  5106.  add.l xwobble,d2
  5107.  move.l d2,(a1,d7*8)
  5108.  
  5109.  muls d6,d0
  5110.  swap d6
  5111.  muls d6,d1
  5112.  add.l d0,d1
  5113.  asl.l #2,d1
  5114.  swap d1
  5115.  ext.l d1
  5116.  divs #3,d1
  5117.  move.l d1,4(a1,d7*8)
  5118.  
  5119.  tst.w d1
  5120.  bgt.s .ptnotbehind
  5121.  tst.w d2
  5122.  bgt.s .onrightsomewhere
  5123.  move.w #0,d2
  5124.  bra .putin
  5125. .onrightsomewhere:
  5126.  move.w RIGHTX,d2
  5127.  bra .putin
  5128. .ptnotbehind:
  5129.  
  5130.  divs d1,d2
  5131.  add.w MIDDLEX,d2
  5132. .putin:
  5133.  move.w d2,(a2,d7*2)
  5134.  
  5135.  bra .pointrotlop
  5136.  
  5137. .outofpointrot:
  5138. ; move.w #$c40,$dff106
  5139. ; move.w #$ff0,$dff180
  5140.  
  5141.  rts
  5142.  
  5143.  
  5144. PLR1_ObjDists
  5145.  ds.w 250
  5146. PLR2_ObjDists
  5147.  ds.w 250
  5148.  
  5149. CalcPLR1InLine:
  5150.  
  5151.  move.w PLR1_sinval,d5
  5152.  move.w PLR1_cosval,d6
  5153.  move.l ObjectData,a4
  5154.  move.l ObjectPoints,a0
  5155.  move.w NumObjectPoints,d7
  5156.  move.l #PLR1_ObsInLine,a2
  5157.  move.l #PLR1_ObjDists,a3
  5158.  
  5159. .objpointrotlop:
  5160.  
  5161.  move.w (a0),d0
  5162.  sub.w PLR1_xoff,d0
  5163.  move.w 4(a0),d1
  5164.  addq #8,a0
  5165.  
  5166.  tst.w 12(a4)
  5167.  blt .noworkout
  5168.  
  5169.  moveq #0,d2
  5170.  move.b 16(a4),d2
  5171.  move.l #ColBoxTable,a6
  5172.  lea (a6,d2.w*8),a6
  5173.  
  5174.  sub.w PLR1_zoff,d1
  5175.  move.w d0,d2
  5176.  muls d6,d2
  5177.  move.w d1,d3
  5178.  muls d5,d3
  5179.  sub.l d3,d2
  5180.  add.l d2,d2
  5181.  
  5182.  bgt.s .okh
  5183.  neg.l d2
  5184. .okh:
  5185.  swap d2
  5186.  
  5187.  muls d5,d0
  5188.  muls d6,d1
  5189.  add.l d0,d1
  5190.  asl.l #2,d1
  5191.  swap d1
  5192.  moveq #0,d3
  5193.  
  5194.  tst.w d1
  5195.  ble.s .notinline
  5196.  asr.w #1,d2
  5197.  cmp.w (a6),d2
  5198.  bgt.s .notinline
  5199.  
  5200.  st d3
  5201. .notinline
  5202.  move.b d3,(a2)+
  5203.  
  5204.  move.w d1,(a3)+
  5205.  
  5206.  add.w #64,a4
  5207.  dbra d7,.objpointrotlop
  5208.  
  5209.  rts
  5210.  
  5211. .noworkout:
  5212.  move.b #0,(a2)+
  5213.  move.w #0,(a3)+
  5214.  add.w #64,a4
  5215.  dbra d7,.objpointrotlop
  5216.  rts
  5217.  
  5218.  
  5219. CalcPLR2InLine:
  5220.  
  5221.  move.w PLR2_sinval,d5
  5222.  move.w PLR2_cosval,d6
  5223.  move.l ObjectData,a4
  5224.  move.l ObjectPoints,a0
  5225.  move.w NumObjectPoints,d7
  5226.  move.l #PLR2_ObsInLine,a2
  5227.  move.l #PLR2_ObjDists,a3
  5228.  
  5229. .objpointrotlop:
  5230.  
  5231.  move.w (a0),d0
  5232.  sub.w PLR2_xoff,d0
  5233.  move.w 4(a0),d1
  5234.  addq #8,a0
  5235.  
  5236.  tst.w 12(a4)
  5237.  blt .noworkout
  5238.  
  5239.  moveq #0,d2
  5240.  move.b 16(a4),d2
  5241.  move.l #ColBoxTable,a6
  5242.  lea (a6,d2.w*8),a6
  5243.  
  5244.  sub.w PLR2_zoff,d1
  5245.  move.w d0,d2
  5246.  muls d6,d2
  5247.  move.w d1,d3
  5248.  muls d5,d3
  5249.  sub.l d3,d2
  5250.  add.l d2,d2
  5251.  
  5252.  bgt.s .okh
  5253.  neg.l d2
  5254. .okh:
  5255.  swap d2
  5256.  
  5257.  muls d5,d0
  5258.  muls d6,d1
  5259.  add.l d0,d1
  5260.  asl.l #2,d1
  5261.  swap d1
  5262.  moveq #0,d3
  5263.  
  5264.  tst.w d1
  5265.  ble.s .notinline
  5266.  asr.w #1,d2
  5267.  cmp.w (a6),d2
  5268.  bgt.s .notinline
  5269.  
  5270.  st d3
  5271. .notinline
  5272.  move.b d3,(a2)+
  5273.  
  5274.  move.w d1,(a3)+
  5275.  
  5276.  add.w #64,a4
  5277.  dbra d7,.objpointrotlop
  5278.  
  5279.  rts
  5280.  
  5281. .noworkout:
  5282.  move.w #0,(a3)+
  5283.  move.b #0,(a2)+
  5284.  add.w #64,a4
  5285.  dbra d7,.objpointrotlop
  5286.  rts
  5287.  
  5288.  
  5289. RotateObjectPts:
  5290.  
  5291.  move.w sinval,d5
  5292.  move.w cosval,d6
  5293.  
  5294.  move.l ObjectData,a4
  5295.  move.l ObjectPoints,a0
  5296.  move.w NumObjectPoints,d7
  5297.  move.l #ObjRotated,a1
  5298.  
  5299.  tst.b FULLSCR
  5300.  bne BIGOBJPTS
  5301.  
  5302. .objpointrotlop:
  5303.  
  5304.  move.w (a0),d0
  5305.  sub.w xoff,d0
  5306.  move.w 4(a0),d1
  5307.  addq #8,a0
  5308.  
  5309.  tst.w 12(a4)
  5310.  blt .noworkout
  5311.  
  5312.  sub.w zoff,d1
  5313.  move.w d0,d2
  5314.  muls d6,d2
  5315.  move.w d1,d3
  5316.  muls d5,d3
  5317.  sub.l d3,d2
  5318.  
  5319.  
  5320.  add.l d2,d2
  5321.  swap d2
  5322.  move.w d2,(a1)+
  5323.  
  5324.  muls d5,d0
  5325.  muls d6,d1
  5326.  add.l d0,d1
  5327.  asl.l #1,d1
  5328.  swap d1
  5329. ; ext.l d1
  5330. ; divs #3,d1
  5331.  moveq #0,d3
  5332.  
  5333.  move.w d1,(a1)+
  5334.  ext.l d2
  5335.  asl.l #7,d2
  5336.  add.l xwobble,d2
  5337.  move.l d2,(a1)+
  5338.  sub.l xwobble,d2
  5339.  
  5340.  add.w #64,a4
  5341.  dbra d7,.objpointrotlop
  5342.  
  5343.  rts
  5344.  
  5345. .noworkout:
  5346.   move.l #0,(a1)+
  5347.   move.l #0,(a1)+
  5348.   add.w #64,a4
  5349.   dbra d7,.objpointrotlop
  5350.   rts
  5351.   
  5352. BIGOBJPTS:
  5353.  
  5354. .objpointrotlop:
  5355.  
  5356.  move.w (a0),d0
  5357.  sub.w xoff,d0
  5358.  move.w 4(a0),d1
  5359.  addq #8,a0
  5360.  
  5361.  tst.w 12(a4)
  5362.  blt .noworkout
  5363.  
  5364.  sub.w zoff,d1
  5365.  move.w d0,d2
  5366.  muls d6,d2
  5367.  move.w d1,d3
  5368.  muls d5,d3
  5369.  sub.l d3,d2
  5370.  
  5371.  
  5372.  add.l d2,d2
  5373.  swap d2
  5374.  move.w d2,(a1)+
  5375.  
  5376.  muls d5,d0
  5377.  muls d6,d1
  5378.  add.l d0,d1
  5379.  asl.l #2,d1
  5380.  swap d1
  5381.  ext.l d1
  5382.  divs #3,d1
  5383.  moveq #0,d3
  5384.  
  5385.  move.w d1,(a1)+
  5386.  ext.l d2
  5387.  asl.l #7,d2
  5388.  add.l xwobble,d2
  5389.  move.l d2,(a1)+
  5390.  sub.l xwobble,d2
  5391.  
  5392.  add.w #64,a4
  5393.  dbra d7,.objpointrotlop
  5394.  
  5395.  rts
  5396.  
  5397. .noworkout:
  5398.   move.l #0,(a1)+
  5399.   move.l #0,(a1)+
  5400.   add.w #64,a4
  5401.   dbra d7,.objpointrotlop
  5402.   rts
  5403.  
  5404. LightDraw:
  5405.  
  5406.  move.w (a0)+,d0
  5407.  move.w (a0)+,d1
  5408.  move.l #Rotated,a1
  5409.  move.w 6(a1,d0.w*8),d2
  5410.  ble.s oneendbehind
  5411.  move.w 6(a1,d1.w*8),d3
  5412.  bgt.s bothendsinfront
  5413.  
  5414. oneendbehind:
  5415.  rts
  5416. bothendsinfront:
  5417.  
  5418.  move.l #OnScreen,a2
  5419.  move.w (a2,d0.w*2),d0
  5420.  bge.s okleftend
  5421.  moveq #0,d0
  5422. okleftend:
  5423.  move.w (a2,d1.w*2),d1
  5424.  bgt.s somevis
  5425.  rts
  5426. somevis:
  5427.  cmp.w RIGHTX,d0
  5428.  blt.s somevis2
  5429.  rts
  5430. somevis2:
  5431.  cmp.w RIGHTX,d1
  5432.  blt.s okrightend
  5433.  move.w RIGHTX,d1
  5434.  subq #1,d1
  5435. okrightend:
  5436.  
  5437.  sub.w d0,d1
  5438.  blt.s wrongbloodywayround
  5439.  move.l #brightentab,a4
  5440.  move.l #objintocop,a1
  5441.  lea (a1,d0.w*2),a1
  5442.  
  5443.  move.l frompt,a3
  5444.  move.w #104*4,d6
  5445.  move.w #79,d2
  5446. lacross:
  5447.  move.w d2,d3
  5448.  move.l a3,a2
  5449.  adda.w (a1)+,a2
  5450. ldown:
  5451.  add.w d6,a2
  5452.  move.w (a2),d7
  5453.  move.w (a4,d7.w*2),(a2)
  5454.  dbra d3,ldown
  5455.  dbra d1,lacross
  5456.  
  5457. wrongbloodywayround:
  5458.  
  5459.  rts
  5460.  
  5461. FaceToPlace: dc.w 0
  5462.  
  5463. Cheese:
  5464.  dc.w 4,15
  5465.  
  5466. FacesList:
  5467.  dc.w 0,4*4
  5468.  dc.w 1,2*4
  5469.  dc.w 0,2*4
  5470.  dc.w 2,2*4
  5471.  dc.w 0,2*4
  5472.  dc.w 1,3*4
  5473.  dc.w 0,2*4
  5474.  dc.w 2,3*4
  5475.  dc.w 0,5*4
  5476.  dc.w 1,2*4
  5477.  dc.w 0,2*4
  5478.  dc.w 2,2*4
  5479.  dc.w 0,2*4
  5480.  dc.w 1,2*4
  5481.  dc.w 0,2*4
  5482.  dc.w 2,3*4
  5483.  dc.w 0,1*4
  5484.  dc.w 1,3*4
  5485.  dc.w 0,1*4
  5486.  dc.w 2,3*4
  5487.  dc.w 0,1*4
  5488.  
  5489. EndOfFacesList:
  5490.  
  5491. FacesPtr:
  5492.  dc.l FacesList
  5493. FacesCounter:
  5494.  dc.w 0
  5495. Expression:
  5496.  dc.w 0
  5497.  
  5498. PlaceFace:
  5499.  
  5500.  move.w FacesCounter,d0
  5501.  subq #1,d0
  5502.  bgt.s NoNewFace
  5503.  
  5504.  move.l FacesPtr,a0
  5505.  
  5506.  move.w 2(a0),d0
  5507.  move.w (a0),Expression
  5508.  addq #4,a0
  5509.  cmp.l #EndOfFacesList,a0
  5510.  blt.s NotFirstFace
  5511.  
  5512.  move.l #FacesList,a0
  5513.  
  5514. NotFirstFace
  5515.  move.l a0,FacesPtr
  5516.  
  5517. NoNewFace:
  5518.  
  5519.  move.w d0,FacesCounter
  5520.  
  5521.  Move.w FaceToPlace,d0
  5522.  muls #5,d0
  5523.  add.w Expression,d0
  5524.  move.l #FacePlace+10,a0
  5525.  move.l #Faces,a1
  5526.  muls #(4*32*5),d0
  5527.  adda.w d0,a1
  5528.  move.w #4,d0
  5529.  move.w #24,d1
  5530.  
  5531.  move.w #4,d3
  5532. bitplaneloop:
  5533.  move.w #31,d2
  5534. PlaceFaceToPlaceInFacePlaceLoop:
  5535.  move.l (a1),(a0)
  5536.  adda.w d0,a1
  5537.  adda.w d1,a0
  5538.  dbra d2,PlaceFaceToPlaceInFacePlaceLoop
  5539.  dbra d3,bitplaneloop
  5540.  
  5541.  rts
  5542.  
  5543. Energy:
  5544.  dc.w 191
  5545. OldEnergy:
  5546.  dc.w 191
  5547. Ammo: dc.w 63
  5548. OldAmmo: dc.w 63
  5549.  
  5550. FullEnergy:
  5551.  move.w #127,Energy
  5552.  move.w #127,OldEnergy
  5553.  move.l #health,a0
  5554.  move.l #borders,a1
  5555.  add.l #25*8*2+6,a1
  5556.  lea 2592(a1),a2
  5557.  move.w #127,d0
  5558. PutInFull:
  5559.  move.b (a0)+,(a1)
  5560.  move.b (a0)+,8(a1)
  5561.  add.w #16,a1
  5562.  move.b (a0)+,(a2)
  5563.  move.b (a0)+,8(a2)
  5564.  add.w #16,a2
  5565.  dbra d0,PutInFull
  5566.  
  5567.  rts
  5568.  
  5569. EnergyBar:
  5570.  
  5571.  move.w Energy,d0
  5572.  bgt.s .noeneg
  5573.  move.w #0,d0
  5574. .noeneg:
  5575.  move.w d0,Energy
  5576.  
  5577.  cmp.w OldEnergy,d0
  5578.  bne.s gottochange
  5579.  
  5580. NoChange
  5581.  rts
  5582.  
  5583. gottochange:
  5584.   
  5585.  blt LessEnergy
  5586.  cmp.w #127,Energy
  5587.  blt.s NotMax
  5588.  move.w #127,Energy
  5589. NotMax:
  5590.  
  5591.  move.w Energy,d0
  5592.  move.w OldEnergy,d2
  5593.  sub.w d0,d2
  5594.  beq.s NoChange    
  5595.  neg.w d2
  5596.  
  5597.  move.w #127,d3
  5598.  sub.w d0,d3
  5599.  
  5600.  move.l #health,a0
  5601.  lea (a0,d3.w*4),a0
  5602.  move.l #borders+25*16+6,a1
  5603.  lsl.w #4,d3
  5604.  add.w d3,a1
  5605.  lea 2592(a1),a2
  5606.  
  5607. EnergyRise:
  5608.  move.b (a0)+,(a1)
  5609.  move.b (a0)+,8(a1)
  5610.  add.w #16,a1
  5611.  move.b (a0)+,(a2)
  5612.  move.b (a0)+,8(a2)
  5613.  add.w #16,a2
  5614.  subq #1,d2
  5615.  bgt.s EnergyRise
  5616.  
  5617.  move.w Energy,OldEnergy
  5618.  
  5619.  rts 
  5620.  
  5621. LessEnergy: 
  5622.  move.w OldEnergy,d2
  5623.  sub.w d0,d2
  5624.  
  5625.  move.w #127,d3
  5626.  sub.w OldEnergy,d3
  5627.  
  5628.  move.l #borders+25*16+6,a1
  5629.  asl.w #4,d3
  5630.  add.w d3,a1
  5631.  lea 2592(a1),a2
  5632.  
  5633. EnergyDrain:
  5634.  move.b #0,(a1)
  5635.  move.b #0,8(a1)
  5636.  move.b #0,(a2)
  5637.  move.b #0,8(a2)
  5638.  add.w #16,a1
  5639.  add.w #16,a2
  5640.  subq #1,d2
  5641.  bgt.s EnergyDrain
  5642.  
  5643.  move.w Energy,OldEnergy
  5644.  
  5645.  rts 
  5646.  
  5647. AmmoBar:
  5648.  
  5649.  move.w Ammo,d0
  5650.  cmp.w OldAmmo,d0
  5651.  bne.s .gottochange
  5652.  
  5653. .NoChange
  5654.  rts
  5655.  
  5656. .gottochange:
  5657.   
  5658.  blt LessAmmo
  5659.  cmp.w #63,Ammo
  5660.  blt.s .NotMax
  5661.  move.w #63,Ammo
  5662. .NotMax:
  5663.  
  5664.  move.w Ammo,d0
  5665.  move.w OldAmmo,d2
  5666.  sub.w d0,d2
  5667.  beq.s .NoChange
  5668.  neg.w d2
  5669.  
  5670.  move.w #63,d3
  5671.  sub.w d0,d3
  5672.  
  5673.  move.l #Ammunition,a0
  5674.  lea (a0,d3.w*8),a0
  5675.  move.l #borders+5184+25*16+1,a1
  5676.  lsl.w #5,d3
  5677.  add.w d3,a1
  5678.  lea 2592(a1),a2
  5679.  
  5680. AmmoRise:
  5681.  move.b (a0)+,(a1)
  5682.  move.b (a0)+,8(a1)
  5683.  add.w #16,a1
  5684.  move.b (a0)+,(a2)
  5685.  move.b (a0)+,8(a2)
  5686.  add.w #16,a2
  5687.  move.b (a0)+,(a1)
  5688.  move.b (a0)+,8(a1)
  5689.  add.w #16,a1
  5690.  move.b (a0)+,(a2)
  5691.  move.b (a0)+,8(a2)
  5692.  add.w #16,a2
  5693.  subq #1,d2
  5694.  bgt.s AmmoRise
  5695.  
  5696.  move.w Ammo,OldAmmo
  5697.  
  5698.  rts 
  5699.  
  5700.  
  5701. LessAmmo: 
  5702.  move.w OldAmmo,d2
  5703.  sub.w d0,d2
  5704.  
  5705.  move.w #63,d3
  5706.  sub.w OldAmmo,d3
  5707.  
  5708.  move.l #borders++5184+25*16+1,a1
  5709.  asl.w #5,d3
  5710.  add.w d3,a1
  5711.  lea 2592(a1),a2
  5712.  
  5713. AmmoDrain:
  5714.  move.b #0,(a1)
  5715.  move.b #0,8(a1)
  5716.  move.b #0,(a2)
  5717.  move.b #0,8(a2)
  5718.  add.w #16,a1
  5719.  add.w #16,a2
  5720.  move.b #0,(a1)
  5721.  move.b #0,8(a1)
  5722.  move.b #0,(a2)
  5723.  move.b #0,8(a2)
  5724.  add.w #16,a1
  5725.  add.w #16,a2
  5726.  subq #1,d2
  5727.  bgt.s AmmoDrain
  5728.  
  5729.  move.w Ammo,OldAmmo
  5730.  
  5731.  rts 
  5732.  
  5733. nulop:
  5734.  move.w #$0010,$dff000+intreq
  5735.  rte
  5736.  
  5737. doanything: dc.w 0
  5738.  
  5739. end:
  5740. ;     _break #0
  5741.  
  5742.  clr.b dosounds
  5743.  clr.b doanything
  5744.  
  5745.  move.w PLR1_energy,Energy
  5746.  cmp.b #'s',mors
  5747.  bne.s .notsl
  5748.  move.w PLR2_energy,Energy
  5749. .notsl:
  5750.  
  5751.  bsr EnergyBar
  5752.  
  5753.  move.l drawpt,d0
  5754.  move.l olddrawpt,drawpt
  5755.  move.l d0,olddrawpt
  5756.  move.l d0,$dff084
  5757.  
  5758.  
  5759.  cmp.b #'b',Prefsfile+3
  5760.  bne.s .noback
  5761.  jsr mt_end
  5762. .noback
  5763.  tst.w Energy
  5764.  bgt.s wevewon
  5765.  
  5766.  move.l #gameover,mt_data
  5767.  st UseAllChannels
  5768.  clr.b reachedend
  5769.  jsr mt_init
  5770. playgameover:
  5771.  move.l #$dff000,a6
  5772. waitfortop2:
  5773.  
  5774.     
  5775.  btst.b #0,intreqrl(a6)
  5776.  beq waitfortop2
  5777.  move.w #$1,intreq(a6)
  5778.  
  5779.     
  5780.  jsr mt_music
  5781.  
  5782.  
  5783.     
  5784.  tst.b reachedend
  5785.  beq.s playgameover
  5786.  
  5787.  bra wevelost
  5788.  
  5789.  
  5790. wevewon:
  5791.  
  5792.  cmp.b #'n',mors
  5793.  bne.s .nonextlev
  5794.  add.w #1,MAXLEVEL
  5795.  st FINISHEDLEVEL
  5796. .nonextlev:
  5797.  
  5798.  move.l #welldone,mt_data
  5799.  st UseAllChannels
  5800.  clr.b reachedend
  5801.  jsr mt_init
  5802. playwelldone:
  5803.  move.l #$dff000,a6
  5804. waitfortop3:
  5805.  btst.b #0,intreqrl(a6)
  5806.  beq waitfortop3
  5807.  move.w #$1,intreq(a6)
  5808.  
  5809.  jsr mt_music
  5810.  
  5811.  tst.b reachedend
  5812.  beq.s playwelldone
  5813.  
  5814. wevelost:
  5815.  
  5816.  PROTICHECK a0
  5817.  
  5818.  jmp closeeverything 
  5819.  
  5820. endnomusic
  5821.  clr.b doanything
  5822.  cmp.b #'b',Prefsfile+3
  5823.  bne.s .noback
  5824.  jsr mt_end
  5825. .noback
  5826. *******************************
  5827. ; cmp.b #'n',mors
  5828. ; bne.s .nonextlev
  5829. ; cmp.w #15,MAXLEVEL
  5830. ; bge.s .nonextlev
  5831. ; add.w #1,MAXLEVEL
  5832. ; st FINISHEDLEVEL
  5833. ;.nonextlev:
  5834. ******************************
  5835.  
  5836.  jmp closeeverything
  5837.  
  5838. do32:
  5839.  move.w #31,d7
  5840.  move.w #$180,d1
  5841. across:
  5842.  move.w d1,(a1)+
  5843.  move.w d1,(a3)+
  5844.  move.w #0,(a1)+ 
  5845.  move.w #0,(a3)+
  5846.  add.w #2,d1
  5847.  dbra d7,across
  5848.  rts
  5849.  
  5850. string:
  5851.     dc.b    'credits',0
  5852.  
  5853. ENDGAMESCROLL:
  5854.  
  5855.     move.l    4.w,a6
  5856.     move.l    #string,d1
  5857.     moveq    #0,d2
  5858.     moveq    #0,d3
  5859.     jsr    _LVOExecute(a6)
  5860.  
  5861. ; include "endscroll.s"
  5862.  
  5863. ***********************************
  5864.  include "ab3:source_4000/CD32JOY"
  5865.  
  5866.  
  5867.  
  5868. *************************************
  5869. * Set left and right clip values
  5870. *************************************
  5871.  
  5872.  
  5873.  
  5874. NEWsetlclip:
  5875.  move.l #OnScreen,a1
  5876.  move.l #Rotated,a2
  5877.  move.l CONNECT_TABLE,a3
  5878.  
  5879.  move.w (a0),d0
  5880.  bge.s .notignoreleft
  5881.  
  5882. ; move.l #0,(a6)
  5883.  
  5884.  bra .leftnotoktoclip
  5885. .notignoreleft:
  5886.  
  5887.  move.w 6(a2,d0*8),d3    ; left z val
  5888.  bgt.s .leftclipinfront
  5889.  addq #2,a0
  5890.  rts
  5891.  
  5892.  tst.w 6(a2,d0*8)
  5893.  bgt.s .leftnotoktoclip
  5894. .ignoreboth:
  5895. ; move.l #0,(a6)
  5896. ; move.l #96*65536,4(a6)
  5897.  move.w #0,leftclip
  5898.  move.w RIGHTX,rightclip
  5899.  addq #8,a6
  5900.  addq #2,a0
  5901.  rts
  5902.  
  5903. .leftclipinfront:
  5904.  move.w (a1,d0*2),d1    ; left x on screen
  5905.  move.w (a0),d2
  5906.  move.w 2(a3,d2.w*4),d2
  5907.  move.w (a1,d2.w*2),d2
  5908.  cmp.w d1,d2
  5909.  bgt.s .leftnotoktoclip
  5910.  
  5911. ; move.w d1,(a6)
  5912. ; move.w d3,2(a6)
  5913.  cmp.w leftclip,d1
  5914.  ble.s .leftnotoktoclip
  5915.  move.w d1,leftclip
  5916. .leftnotoktoclip:
  5917.  
  5918.  addq #2,a0
  5919.  
  5920.  rts
  5921.  
  5922. NEWsetrclip
  5923.  move.l #OnScreen,a1
  5924.  move.l #Rotated,a2
  5925.  move.l CONNECT_TABLE,a3
  5926.  move.w (a0),d0
  5927.  bge.s .notignoreright
  5928. ; move.w #96,4(a6)
  5929. ; move.w #0,6(a6)
  5930.  move.w #0,d4
  5931.  bra .rightnotoktoclip
  5932. .notignoreright:
  5933.  move.w 6(a2,d0*8),d4    ; right z val
  5934.  bgt.s .rightclipinfront
  5935. ; move.w #96,4(a6)
  5936. ; move.w #0,6(a6)
  5937.  bra.s .rightnotoktoclip
  5938.  
  5939. .rightclipinfront:
  5940.  move.w (a1,d0*2),d1    ; right x on screen
  5941.  move.w (a0),d2
  5942.  move.w (a3,d2.w*4),d2
  5943.  move.w (a1,d2.w*2),d2
  5944.  cmp.w d1,d2
  5945.  blt.s .rightnotoktoclip
  5946. ; move.w d1,4(a6)
  5947. ; move.w d4,6(a6)
  5948.  
  5949.  cmp.w rightclip,d1
  5950.  bge.s .rightnotoktoclip
  5951.  addq #1,d1
  5952.  move.w d1,rightclip
  5953. .rightnotoktoclip:
  5954.  addq #8,a6
  5955.  addq #2,a0
  5956.  rts
  5957.  
  5958. FIRSTsetlrclip:
  5959.  move.l #OnScreen,a1
  5960.  move.l #Rotated,a2
  5961.  
  5962.  move.w (a0)+,d0
  5963.  bge.s .notignoreleft
  5964.  bra .leftnotoktoclip
  5965. .notignoreleft:
  5966.  
  5967.  move.w 6(a2,d0*8),d3    ; left z val
  5968.  bgt.s .leftclipinfront
  5969.  
  5970.  move.w (a0),d0
  5971.  blt.s .ignoreboth
  5972.  tst.w 6(a2,d0*8)
  5973.  bgt.s .leftnotoktoclip
  5974. .ignoreboth
  5975.  move.w RIGHTX,rightclip
  5976.  move.w #0,leftclip
  5977.  addq #2,a0
  5978.  rts
  5979.  
  5980. .leftclipinfront:
  5981.  move.w (a1,d0*2),d1    ; left x on screen
  5982.  cmp.w leftclip,d1
  5983.  ble.s .leftnotoktoclip
  5984.  move.w d1,leftclip
  5985. .leftnotoktoclip:
  5986.  
  5987.  move.w (a0)+,d0
  5988.  bge.s .notignoreright
  5989.  move.w #0,d4
  5990.  bra .rightnotoktoclip
  5991. .notignoreright:
  5992.  move.w 6(a2,d0*8),d4    ; right z val
  5993.  ble.s .rightnotoktoclip
  5994.  
  5995. .rightclipinfront:
  5996.  move.w (a1,d0*2),d1    ; right x on screen
  5997.  addq #1,d1
  5998.  cmp.w rightclip,d1
  5999.  bge.s .rightnotoktoclip
  6000.  move.w d1,rightclip
  6001. .rightnotoktoclip:
  6002.  
  6003. ; move.w leftclip,d0
  6004. ; move.w rightclip,d1
  6005. ; cmp.w d0,d1
  6006. ; bge.s .noswap
  6007. ; move.w #192,rightclip
  6008. ; move.w #0,leftclip
  6009. ;.noswap:
  6010.  
  6011.  rts
  6012.  
  6013.  
  6014. leftclip2: dc.w 0
  6015. rightclip2: dc.w 0
  6016. ZoneBright: dc.w 0
  6017.  
  6018. npolys: dc.w 0
  6019.  
  6020. PLR1_fire: dc.b 0
  6021. PLR2_fire: dc.b 0
  6022.  
  6023. *****************************************************
  6024.  
  6025.  
  6026. pastdata:
  6027. ***********************************
  6028. * This routine animates brightnesses.
  6029.  
  6030.  
  6031. liftpt: dc.l liftanimtab
  6032.  
  6033. brightpt:
  6034.  dc.l brightanimtab
  6035.  
  6036.  
  6037. liftanim:
  6038.  rts
  6039.  
  6040. ******************************
  6041.  include "ab3:source_4000/ObjectMove"
  6042.  include "ab3:source_4000/newAnims"
  6043.  include "ab3:source_4000/airoutine.s"
  6044. ******************************
  6045. startpass:
  6046. ; include "ab3:source_4000/password_reloc.s"
  6047. endpass:
  6048.  
  6049. rotanimpt: dc.w 0
  6050. xradd: dc.w 5
  6051. yradd: dc.w 8
  6052. xrpos: dc.w 320
  6053. yrpos: dc.w 320
  6054.  
  6055. rotanim:
  6056.  rts
  6057.  
  6058. option:
  6059.  dc.l 0,0
  6060.  
  6061. ********** WALL STUFF *******************************
  6062.  
  6063.  include "AB3:source_4000/hireswall.s"
  6064.  include "AB3:source_4000/hiresgourwall.s"
  6065.  
  6066. *****************************************************
  6067.  
  6068. ******************************************
  6069. * floor polygon
  6070.  
  6071. numsidestd: dc.w 0
  6072. bottomline: dc.w 0
  6073.  
  6074. checkforwater:
  6075.  tst.b usewater
  6076.  beq.s .notwater
  6077.  
  6078.  move.l Roompt,a1
  6079.  move.w (a1),d7
  6080.  cmp.w currzone,d7
  6081.  bne.s .notwater
  6082.  
  6083.  move.b #$f,fillscrnwater
  6084.  
  6085. .notwater:
  6086.  move.w (a0)+,d6    ; sides-1
  6087.  add.w d6,d6
  6088.  add.w d6,a0
  6089.  add.w #4+6,a0
  6090.  rts
  6091.  
  6092.  rts
  6093.  
  6094. NewCornerBuff:
  6095.  ds.l 100
  6096. CLRNOFLOOR: dc.w 0
  6097.  
  6098. itsafloordraw:
  6099.  
  6100. * If D0 =1 then its a floor otherwise (=2) it's
  6101. * a roof.
  6102.  
  6103.  move.w #0,above
  6104.  move.w (a0)+,d6    ; ypos of poly
  6105.  
  6106.  tst.b usewater
  6107.  beq.s .oknon
  6108.  tst.b DOANYWATER
  6109.  beq dontdrawreturn
  6110. .oknon
  6111.  
  6112.  move.w d6,d7
  6113.  ext.l d7
  6114.  asl.l #6,d7
  6115.  cmp.l TOPOFROOM,d7
  6116.  blt checkforwater
  6117.  cmp.l BOTOFROOM,d7
  6118.  bgt.s dontdrawreturn
  6119.  
  6120.  move.w leftclip,d7
  6121.  cmp.w rightclip,d7
  6122.  bge.s dontdrawreturn
  6123.  
  6124.  move.w botclip,d7
  6125.  sub.w MIDDLEY,d7
  6126.  ble.s dontdrawreturn
  6127.  sub.w flooryoff,d6
  6128.  bgt.s below
  6129.  blt.s aboveplayer
  6130.  
  6131.  tst.b usewater
  6132.  beq.s .notwater
  6133.  
  6134.  move.l Roompt,a1
  6135.  move.w (a1),d7
  6136.  cmp.w currzone,d7
  6137.  
  6138.  bne.s .notwater
  6139.  
  6140.  st fillscrnwater
  6141.  
  6142. .notwater:
  6143.  
  6144.  
  6145. dontdrawreturn:
  6146.  move.w (a0)+,d6    ; sides-1
  6147.  add.w d6,d6
  6148.  add.w d6,a0
  6149.  add.w #4+6,a0
  6150.  rts
  6151. aboveplayer:
  6152.  
  6153.  tst.b usewater
  6154.  beq.s .notwater
  6155.  
  6156.  move.l Roompt,a1
  6157.  move.w (a1),d7
  6158.  cmp.w currzone,d7
  6159.  bne.s .notwater
  6160.  
  6161.  move.b #$f,fillscrnwater
  6162.  
  6163. .notwater:
  6164.  
  6165.  btst #1,d0
  6166.  beq.s dontdrawreturn
  6167.  move.w MIDDLEY,d7
  6168.  sub.w topclip,d7 
  6169.  ble.s dontdrawreturn
  6170.  move.w #1,d0
  6171.  move.w d0,above
  6172.  neg.w d6
  6173. below:
  6174.  btst #0,d0
  6175.  beq.s dontdrawreturn
  6176.  move.w d6,distaddr
  6177.  muls #64,d6
  6178.  move.l d6,ypos
  6179.  ext.l d7
  6180.  divs.l d7,d6        ; zpos of bottom
  6181.             ; visible line
  6182.  
  6183.  cmp.l #32767,d6
  6184.  bgt dontdrawreturn
  6185.             
  6186.  move.w d6,minz
  6187.  move.w d7,bottomline
  6188.  
  6189. ; Go round each point finding out
  6190. ; if it should be visible or not.
  6191.  
  6192.  move.l a0,-(a7)
  6193.  
  6194.  move.w (a0)+,d7    ; number of sides
  6195.  move.l #Rotated,a1
  6196.  move.l #OnScreen,a2
  6197.  move.l #NewCornerBuff,a3
  6198.  moveq #0,d4
  6199.  moveq #0,d5
  6200.  moveq #0,d6
  6201.  clr.b anyclipping
  6202.  
  6203. cornerprocessloop:
  6204.  
  6205.  move.w (a0)+,d0
  6206.  and.w #$fff,d0
  6207.  move.w 6(a1,d0.w*8),d1
  6208.  ble  .canttell
  6209.  
  6210.  move.w (a2,d0.w*2),d3
  6211.  cmp.w leftclip,d3
  6212.  bgt.s .nol
  6213.  st d4
  6214.  st anyclipping
  6215.  bra.s .nos
  6216. .nol:
  6217.  cmp.w rightclip,d3
  6218.  blt.s .nor
  6219.  st d6
  6220.  st anyclipping
  6221.  bra.s .nos
  6222. .nor:
  6223.  st d5
  6224. .nos:
  6225.  bra .cantell
  6226.  
  6227. .canttell:
  6228.  st d5
  6229.  st anyclipping
  6230.  
  6231. .cantell:
  6232.  
  6233.  
  6234.  dbra d7,cornerprocessloop
  6235.  
  6236.  move.l (a7)+,a0
  6237.  tst.b d5
  6238.  bne.s somefloortodraw
  6239.  eor.b d4,d6
  6240.  bne dontdrawreturn
  6241.  
  6242. somefloortodraw:
  6243.  
  6244.  tst.b gourfloor
  6245.  bne goursides
  6246.  
  6247.  move.w #300,top
  6248.  move.w #-1,bottom
  6249.  move.w #0,drawit
  6250.  move.l #Rotated,a1
  6251.  move.l #OnScreen,a2
  6252.  move.w (a0)+,d7    ; no of sides
  6253. sideloop:
  6254.  move.w minz,d6
  6255.  move.w (a0)+,d1
  6256.  move.w (a0),d3
  6257.  and.w #$fff,d1
  6258.  and.w #$fff,d3
  6259.  
  6260.  move.w 6(a1,d1*8),d4    ;first z
  6261.  cmp.w d6,d4
  6262.  bgt firstinfront
  6263.  move.w 6(a1,d3*8),d5    ; sec z
  6264.  cmp.w d6,d5
  6265.  ble bothbehind
  6266. ** line must be on left and partially behind.
  6267.  sub.w d5,d4
  6268.  move.l (a1,d1*8),d0
  6269.  sub.l (a1,d3*8),d0
  6270.  asr.l #7,d0
  6271.  sub.w d5,d6
  6272.  muls d6,d0    ; new x coord
  6273.  divs d4,d0
  6274.  ext.l d0
  6275.  asl.l #7,d0
  6276.  
  6277.  add.l (a1,d3*8),d0
  6278.  move.w minz,d4
  6279.  move.w (a2,d3*2),d2
  6280.  divs d4,d0
  6281.  add.w MIDDLEX,d0
  6282.  move.l ypos,d3
  6283.  divs d5,d3
  6284.  move.w bottomline,d1 
  6285.  bra lineclipped
  6286.  
  6287. firstinfront:
  6288.  move.w 6(a1,d3*8),d5    ; sec z
  6289.  cmp.w d6,d5
  6290.  bgt bothinfront
  6291. ** line must be on right and partially behind.
  6292.  sub.w d4,d5    ; dz
  6293.  move.l (a1,d3*8),d2
  6294.  sub.l (a1,d1*8),d2    ; dx
  6295.  sub.w d4,d6
  6296.  asr.l #7,d2
  6297.  muls d6,d2    ; new x coord
  6298.  divs d5,d2
  6299.  ext.l d2
  6300.  asl.l #7,d2
  6301.  add.l (a1,d1*8),d2
  6302.  move.w minz,d5
  6303.  move.w (a2,d1*2),d0
  6304.  divs d5,d2
  6305.  add.w MIDDLEX,d2
  6306.  move.l ypos,d1
  6307.  divs d4,d1
  6308.  move.w bottomline,d3 
  6309.  bra lineclipped
  6310.  
  6311. bothinfront:
  6312.  
  6313. * Also, usefully enough, both are on-screen
  6314. * so no bottom clipping is needed.
  6315.  
  6316.  move.w (a2,d1*2),d0    ; first x
  6317.  move.w (a2,d3*2),d2    ; second x
  6318.  move.l ypos,d1
  6319.  move.l d1,d3
  6320.  divs d4,d1        ; first y
  6321.  divs d5,d3        ; second y
  6322. lineclipped:
  6323.  move.l #rightsidetab,a3
  6324.  cmp.w d1,d3
  6325.  beq lineflat
  6326.  st drawit
  6327.  bgt lineonright
  6328.  move.l #leftsidetab,a3
  6329.  exg d1,d3
  6330.  exg d0,d2
  6331.  
  6332.  lea (a3,d1*2),a3
  6333.  
  6334.  cmp.w top(pc),d1
  6335.  bge.s .nonewtop
  6336.  move.w d1,top
  6337. .nonewtop:
  6338.  cmp.w bottom(pc),d3
  6339.  ble.s .nonewbot
  6340.  move.w d3,bottom
  6341. .nonewbot:
  6342.  
  6343.  sub.w d1,d3    ; dy
  6344.  sub.w d0,d2    ; dx
  6345.  
  6346.  blt .linegoingleft
  6347.  
  6348.  ext.l d2
  6349.  divs d3,d2
  6350.  move.w d2,d6
  6351.  swap d2
  6352.  
  6353. ; moveq #0,d6
  6354. ; sub.w d3,d2
  6355. ; blt.s .noco
  6356. ;.makeco
  6357. ; addq #1,d6
  6358. ; sub.w d3,d2
  6359. ; bge.s .makeco
  6360. ;.noco
  6361. ; add.w d3,d2
  6362.  
  6363.  move.w d3,d4
  6364.  move.w d3,d5
  6365.  subq #1,d5
  6366.  move.w d6,d1
  6367.  addq #1,d1
  6368.  
  6369. .pixlopright:
  6370.  move.w d0,(a3)+
  6371.  sub.w d2,d4
  6372.  bge.s .nobigstep
  6373.  add.w d1,d0
  6374.  add.w d3,d4
  6375.  dbra d5,.pixlopright
  6376.  bra lineflat
  6377. .nobigstep
  6378.  add.w d6,d0
  6379.  dbra d5,.pixlopright
  6380.  bra lineflat
  6381.  
  6382. .linegoingleft:
  6383.  
  6384.  neg.w d2
  6385.  
  6386.  ext.l d2
  6387.  divs d3,d2
  6388.  move.w d2,d6
  6389.  swap d2
  6390.  
  6391.  
  6392. ; moveq #0,d6
  6393. ; sub.w d3,d2
  6394. ; blt.s .nocol
  6395. ;.makecol
  6396. ; addq #1,d6
  6397. ; sub.w d3,d2
  6398. ; bge.s .makecol
  6399. ;.nocol
  6400. ; add.w d3,d2
  6401.  
  6402.  
  6403.  
  6404.  move.w d3,d4
  6405.  move.w d3,d5
  6406.  subq #1,d5
  6407.  
  6408.  move.w d6,d1
  6409.  addq #1,d1
  6410.  
  6411. .pixlopleft:
  6412.  sub.w d2,d4
  6413.  bge.s .nobigstepl
  6414.  sub.w d1,d0
  6415.  add.w d3,d4
  6416.  move.w d0,(a3)+
  6417.  dbra d5,.pixlopleft
  6418.  bra lineflat
  6419.  
  6420. .nobigstepl
  6421.  sub.w d6,d0
  6422.  move.w d0,(a3)+
  6423.  dbra d5,.pixlopleft
  6424.  bra lineflat
  6425.  
  6426. lineonright:
  6427.  
  6428.  lea (a3,d1*2),a3
  6429.  
  6430.  cmp.w top(pc),d1
  6431.  bge.s .nonewtop
  6432.  move.w d1,top
  6433. .nonewtop:
  6434.  cmp.w bottom(pc),d3
  6435.  ble.s .nonewbot
  6436.  move.w d3,bottom
  6437. .nonewbot:
  6438.  
  6439.  sub.w d1,d3    ; dy
  6440.  sub.w d0,d2    ; dx
  6441.  blt .linegoingleft
  6442. ; addq #1,d0
  6443.  ext.l d2
  6444.  divs d3,d2
  6445.  move.w d2,d6
  6446.  swap d2
  6447.  
  6448. ; moveq #0,d6
  6449. ; sub.w d3,d2
  6450. ; blt.s .noco
  6451. ;.makeco
  6452. ; addq #1,d6
  6453. ; sub.w d3,d2
  6454. ; bge.s .makeco
  6455. ;.noco
  6456. ; add.w d3,d2
  6457.  
  6458.  move.w d3,d4
  6459.  move.w d3,d5
  6460.  subq #1,d5
  6461.  move.w d6,d1
  6462.  addq #1,d1
  6463.  
  6464. .pixlopright:
  6465.  sub.w d2,d4
  6466.  bge.s .nobigstep
  6467.  add.w d1,d0
  6468.  add.w d3,d4
  6469.  move.w d0,(a3)+
  6470.  dbra d5,.pixlopright
  6471.  bra lineflat
  6472.  
  6473. .nobigstep
  6474.  add.w d6,d0
  6475.  move.w d0,(a3)+
  6476.  dbra d5,.pixlopright
  6477.  bra lineflat
  6478.  
  6479. .linegoingleft:
  6480. ; addq #1,d0
  6481.  neg.w d2
  6482.  
  6483.  ext.l d2
  6484.  divs d3,d2
  6485.  move.w d2,d6
  6486.  swap d2
  6487.  
  6488.  
  6489. ; moveq #0,d6
  6490. ; sub.w d3,d2
  6491. ; blt.s .nocol
  6492. ;.makecol
  6493. ; addq #1,d6
  6494. ; sub.w d3,d2
  6495. ; bge.s .makecol
  6496. ;.nocol
  6497. ; add.w d3,d2
  6498.  
  6499.  move.w d3,d4
  6500.  move.w d3,d5
  6501.  subq #1,d5
  6502.  move.w d6,d1
  6503.  addq #1,d1
  6504.  
  6505. .pixlopleft:
  6506.  move.w d0,(a3)+
  6507.  sub.w d2,d4
  6508.  bge.s .nobigstepl
  6509.  sub.w d1,d0
  6510.  add.w d3,d4
  6511.  dbra d5,.pixlopleft
  6512.  bra lineflat
  6513.  
  6514. .nobigstepl
  6515.  sub.w d6,d0
  6516.  dbra d5,.pixlopleft
  6517.  
  6518. lineflat:
  6519.  
  6520. bothbehind:
  6521.  dbra d7,sideloop
  6522.  bra pastsides
  6523.  
  6524. fbr: dc.w 0
  6525. sbr: dc.w 0
  6526. FloorPtBrights: dc.l 0
  6527.  
  6528. goursides:
  6529.  
  6530.  move.w #300,top
  6531.  move.w #-1,bottom
  6532.  move.w #0,drawit
  6533.  move.l #Rotated,a1
  6534.  move.l #OnScreen,a2
  6535.  move.w (a0)+,d7    ; no of sides
  6536. sideloopGOUR:
  6537.  move.w minz,d6
  6538.  move.w (a0)+,d1
  6539.  move.w (a0),d3
  6540.  
  6541.  move.w d1,d4
  6542.  move.w d3,d5
  6543.  and.w #$0fff,d1
  6544.  and.w #$0fff,d3
  6545.  
  6546.  rol.w #4,d4
  6547.  rol.w #4,d5
  6548.  and.w #$f,d4
  6549.  and.w #$f,d5
  6550.  
  6551.  move.l FloorPtBrights,a4
  6552.  move.w (a4,d4.w*8),fbr
  6553.  move.w (a4,d5.w*8),sbr
  6554.  
  6555.  move.w 6(a1,d1*8),d4    ;first z
  6556.  cmp.w d6,d4
  6557.  bgt firstinfrontGOUR
  6558.  move.w 6(a1,d3*8),d5    ; sec z
  6559.  cmp.w d6,d5
  6560.  ble bothbehindGOUR
  6561. ** line must be on left and partially behind.
  6562.  sub.w d5,d4
  6563.  
  6564.  move.w fbr,d0
  6565.  sub.w sbr,d0
  6566.  sub.w d5,d6
  6567.  muls d6,d0
  6568.  divs d4,d0
  6569.  add.w sbr,d0
  6570.  move.w d0,fbr
  6571.  
  6572.  move.l (a1,d1*8),d0
  6573.  sub.l (a1,d3*8),d0
  6574.  asr.l #7,d0
  6575.  muls d6,d0    ; new x coord
  6576.  divs d4,d0
  6577.  ext.l d0
  6578.  asl.l #7,d0
  6579.  
  6580.  add.l (a1,d3*8),d0
  6581.  move.w minz,d4
  6582.  move.w (a2,d3*2),d2
  6583.  divs d4,d0
  6584.  add.w MIDDLEX,d0
  6585.  move.l ypos,d3
  6586.  divs d5,d3
  6587.  
  6588.  move.w bottomline,d1 
  6589.  bra lineclippedGOUR
  6590.  
  6591. firstinfrontGOUR:
  6592.  move.w 6(a1,d3*8),d5    ; sec z
  6593.  cmp.w d6,d5
  6594.  bgt bothinfrontGOUR
  6595. ** line must be on right and partially behind.
  6596.  sub.w d4,d5    ; dz
  6597.  
  6598.  move.w sbr,d2
  6599.  sub.w fbr,d2
  6600.  sub.w d4,d6
  6601.  muls d6,d2
  6602.  divs d5,d2
  6603.  add.w fbr,d2
  6604.  move.w d2,sbr
  6605.  
  6606.  move.l (a1,d3*8),d2
  6607.  sub.l (a1,d1*8),d2    ; dx
  6608.  asr.l #7,d2
  6609.  muls d6,d2    ; new x coord
  6610.  divs d5,d2
  6611.  ext.l d2
  6612.  asl.l #7,d2
  6613.  add.l (a1,d1*8),d2
  6614.  move.w minz,d5
  6615.  move.w (a2,d1*2),d0
  6616.  divs d5,d2
  6617.  add.w MIDDLEX,d2
  6618.  move.l ypos,d1
  6619.  divs d4,d1
  6620.  move.w bottomline,d3 
  6621.  bra lineclippedGOUR
  6622.  
  6623. bothinfrontGOUR:
  6624.  
  6625. * Also, usefully enough, both are on-screen
  6626. * so no bottom clipping is needed.
  6627.  
  6628.  move.w (a2,d1*2),d0    ; first x
  6629.  move.w (a2,d3*2),d2    ; second x
  6630.  move.l ypos,d1
  6631.  move.l d1,d3
  6632.  divs d4,d1        ; first y
  6633.  divs d5,d3        ; second y
  6634. lineclippedGOUR:
  6635.  move.l #rightsidetab,a3
  6636.  cmp.w d1,d3
  6637.  bne linenotflatGOUR
  6638.  
  6639. ; move.w fbr,d4
  6640. ; move.w sbr,d5
  6641. ; cmp.w d0,d2
  6642. ; bgt.s .nsw
  6643. ; exg d4,d5
  6644. ;.nsw:
  6645.  
  6646. ; move.l #leftbrighttab,a3
  6647. ; move.w d4,(a3,d3.w)
  6648. ; move.l #rightbrighttab,a3
  6649. ; move.w d5,(a3,d3.w) 
  6650.  bra lineflatGOUR
  6651.  
  6652. linenotflatGOUR
  6653.  st drawit
  6654.  bgt lineonrightGOUR
  6655.  move.l #leftsidetab,a3
  6656.  exg d1,d3
  6657.  exg d0,d2
  6658.  
  6659.  lea (a3,d1*2),a3
  6660.  lea leftbrighttab-leftsidetab(a3),a4
  6661.  
  6662.  cmp.w top(pc),d1
  6663.  bge.s .nonewtop
  6664.  move.w d1,top
  6665. .nonewtop:
  6666.  cmp.w bottom(pc),d3
  6667.  ble.s .nonewbot
  6668.  move.w d3,bottom
  6669. .nonewbot:
  6670.  
  6671.  sub.w d1,d3    ; dy
  6672.  sub.w d0,d2    ; dx
  6673.  
  6674.  blt .linegoingleft
  6675.  
  6676.  ext.l d2
  6677.  divs d3,d2
  6678.  move.w d2,d6
  6679.  swap d2
  6680.  move.w d2,a5
  6681.  
  6682. ; moveq #0,d6
  6683. ; sub.w d3,d2
  6684. ; blt.s .noco
  6685. ;.makeco
  6686. ; addq #1,d6
  6687. ; sub.w d3,d2
  6688. ; bge.s .makeco
  6689. ;.noco
  6690. ; add.w d3,d2
  6691.  
  6692.  move.w d3,d4
  6693.  move.w d3,d5
  6694.  subq #1,d5
  6695.  move.w d6,d1
  6696.  addq #1,d1
  6697.  move.w d1,a6
  6698.  
  6699.  moveq #0,d1
  6700.  move.w sbr,d1
  6701.  move.w fbr,d2
  6702.  sub.w d1,d2
  6703.  ext.l d2
  6704.  asl.w #8,d2
  6705.  asl.w #2,d2
  6706.  divs d3,d2 
  6707.  ext.l d2
  6708.  asl.l #6,d2
  6709.  swap d1
  6710.  
  6711. .pixlopright:
  6712.  move.w d0,(a3)+
  6713.  swap d1
  6714.  move.w d1,(a4)+
  6715.  swap d1
  6716.  add.l d2,d1
  6717.  
  6718.  sub.w a5,d4
  6719.  bge.s .nobigstep
  6720.  add.w a6,d0
  6721.  add.w d3,d4
  6722.  dbra d5,.pixlopright
  6723.  bra lineflatGOUR
  6724. .nobigstep
  6725.  
  6726.  add.w d6,d0
  6727.  dbra d5,.pixlopright
  6728.  bra lineflatGOUR
  6729.  
  6730. .linegoingleft:
  6731.  
  6732.  neg.w d2
  6733.  
  6734.  ext.l d2
  6735.  divs d3,d2
  6736.  move.w d2,d6
  6737.  swap d2
  6738.  
  6739.  
  6740. ; moveq #0,d6
  6741. ; sub.w d3,d2
  6742. ; blt.s .nocol
  6743. ;.makecol
  6744. ; addq #1,d6
  6745. ; sub.w d3,d2
  6746. ; bge.s .makecol
  6747. ;.nocol
  6748. ; add.w d3,d2
  6749.  
  6750.  move.w d3,d4
  6751.  move.w d3,d5
  6752.  subq #1,d5
  6753.  
  6754.  move.w d6,d1
  6755.  addq #1,d1
  6756.  move.w d1,a6
  6757.  move.w d2,a5
  6758.  
  6759.  moveq #0,d1
  6760.  move.w sbr,d1
  6761.  move.w fbr,d2
  6762.  sub.w d1,d2
  6763.  ext.l d2
  6764.  asl.w #8,d2
  6765.  asl.w #2,d2
  6766.  divs d3,d2 
  6767.  ext.l d2
  6768.  asl.l #6,d2
  6769.  swap d1
  6770.  
  6771. .pixlopleft:
  6772.  
  6773.  swap d1
  6774.  move.w d1,(a4)+
  6775.  swap d1
  6776.  add.l d2,d1
  6777.  
  6778.  sub.w a5,d4
  6779.  bge.s .nobigstepl
  6780.  sub.w a6,d0
  6781.  add.w d3,d4
  6782.  move.w d0,(a3)+
  6783.  dbra d5,.pixlopleft
  6784.  bra lineflatGOUR
  6785.  
  6786. .nobigstepl
  6787.  sub.w d6,d0
  6788.  move.w d0,(a3)+
  6789.  dbra d5,.pixlopleft
  6790.  bra lineflatGOUR
  6791.  
  6792. lineonrightGOUR:
  6793.  
  6794.  lea (a3,d1*2),a3
  6795.  
  6796.  lea rightbrighttab-rightsidetab(a3),a4
  6797.  
  6798.  cmp.w top(pc),d1
  6799.  bge.s .nonewtop
  6800.  move.w d1,top
  6801. .nonewtop:
  6802.  cmp.w bottom(pc),d3
  6803.  ble.s .nonewbot
  6804.  move.w d3,bottom
  6805. .nonewbot:
  6806.  
  6807.  sub.w d1,d3    ; dy
  6808.  sub.w d0,d2    ; dx
  6809.  blt .linegoingleft
  6810. ; addq #1,d0
  6811.  ext.l d2
  6812.  divs d3,d2
  6813.  move.w d2,d6
  6814.  swap d2
  6815.  
  6816. ; moveq #0,d6
  6817. ; sub.w d3,d2
  6818. ; blt.s .noco
  6819. ;.makeco
  6820. ; addq #1,d6
  6821. ; sub.w d3,d2
  6822. ; bge.s .makeco
  6823. ;.noco
  6824. ; add.w d3,d2
  6825.  
  6826.  move.w d3,d4
  6827.  move.w d3,d5
  6828.  subq #1,d5
  6829.  move.w d6,d1
  6830.  addq #1,d1
  6831.  
  6832.  move.w d1,a6
  6833.  move.w d2,a5
  6834.  
  6835.  moveq #0,d1
  6836.  move.w fbr,d1
  6837.  move.w sbr,d2
  6838.  sub.w d1,d2
  6839.  ext.l d2
  6840.  asl.w #8,d2
  6841.  asl.w #2,d2
  6842.  divs d3,d2 
  6843.  ext.l d2
  6844.  asl.l #6,d2
  6845.  swap d1
  6846.  
  6847. .pixlopright:
  6848.  
  6849.  swap d1
  6850.  move.w d1,(a4)+
  6851.  swap d1
  6852.  add.l d2,d1
  6853.  
  6854.  sub.w a5,d4
  6855.  bge.s .nobigstep
  6856.  add.w a6,d0
  6857.  add.w d3,d4
  6858.  move.w d0,(a3)+
  6859.  dbra d5,.pixlopright
  6860.  bra lineflatGOUR
  6861.  
  6862. .nobigstep
  6863.  add.w d6,d0
  6864.  move.w d0,(a3)+
  6865.  dbra d5,.pixlopright
  6866.  bra lineflatGOUR
  6867.  
  6868. .linegoingleft:
  6869. ; addq #1,d0
  6870.  neg.w d2
  6871.  
  6872.  ext.l d2
  6873.  divs d3,d2
  6874.  move.w d2,d6
  6875.  swap d2
  6876.  
  6877.  
  6878. ; moveq #0,d6
  6879. ; sub.w d3,d2
  6880. ; blt.s .nocol
  6881. ;.makecol
  6882. ; addq #1,d6
  6883. ; sub.w d3,d2
  6884. ; bge.s .makecol
  6885. ;.nocol
  6886. ; add.w d3,d2
  6887.  
  6888.  move.w d3,d4
  6889.  move.w d3,d5
  6890.  subq #1,d5
  6891.  move.w d6,d1
  6892.  addq #1,d1
  6893.  move.w d1,a6
  6894.  move.w d2,a5
  6895.  
  6896.  moveq #0,d1
  6897.  move.w fbr,d1
  6898.  move.w sbr,d2
  6899.  sub.w d1,d2
  6900.  ext.l d2
  6901.  asl.w #8,d2
  6902.  asl.w #2,d2
  6903.  divs d3,d2 
  6904.  ext.l d2
  6905.  asl.l #6,d2
  6906.  swap d1
  6907.  
  6908. .pixlopleft:
  6909.  
  6910.  swap d1
  6911.  move.w d1,(a4)+
  6912.  swap d1
  6913.  add.l d2,d1
  6914.  
  6915.  move.w d0,(a3)+
  6916.  sub.w a5,d4
  6917.  bge.s .nobigstepl
  6918.  sub.w a6,d0
  6919.  add.w d3,d4
  6920.  dbra d5,.pixlopleft
  6921.  bra lineflatGOUR
  6922.  
  6923. .nobigstepl
  6924.  sub.w d6,d0
  6925.  dbra d5,.pixlopleft
  6926.  
  6927. lineflatGOUR:
  6928.  
  6929. bothbehindGOUR:
  6930.  dbra d7,sideloopGOUR
  6931.  
  6932. pastsides:
  6933.  
  6934.  addq #2,a0
  6935.  
  6936.  move.w #320*2,linedir
  6937.  
  6938. ; move.l FASTBUFFER2,a6
  6939. ; add.l BIGMIDDLEY,a6
  6940. ; move.l a6,REFPTR
  6941.  
  6942.  move.l FASTBUFFER,a6
  6943.  add.l BIGMIDDLEY,a6
  6944.  move.w (a0)+,d6
  6945.  add.w SMALLIT,d6
  6946.  move.w d6,scaleval
  6947.  move.w (a0)+,whichtile
  6948.  move.w (a0)+,d6
  6949.  add.w ZoneBright,d6
  6950.  move.w d6,lighttype
  6951.  move.w above(pc),d6
  6952.  beq groundfloor
  6953. * on ceiling:
  6954.  move.w #-320*2,linedir
  6955.  suba.w #320*2,a6
  6956. groundfloor:
  6957.  
  6958.  move.w xoff,d6
  6959.  move.w zoff,d7
  6960.  add.w xwobxoff,d7
  6961.  add.w xwobzoff,d6
  6962.  ext.l d6
  6963.  ext.l d7
  6964.  
  6965.  tst.b FULLSCR
  6966.  beq.s .shiftit
  6967.  
  6968.  add.l d6,d6
  6969.  add.l d7,d7
  6970.  divs #3,d6
  6971.  divs #3,d7
  6972.  
  6973. .shiftit
  6974.  
  6975. ; divs #3,d6
  6976. ; divs #3,d7
  6977.  asr.w #1,d6
  6978.  asr.w #1,d7
  6979.  swap d6
  6980.  swap d7
  6981.  clr.w d6
  6982.  clr.w d7
  6983.  move.w scaleval(pc),d3
  6984.  beq.s .samescale
  6985.  bgt.s .scaledown
  6986.  neg.w d3
  6987.  asr.l d3,d7
  6988.  asr.l d3,d6
  6989.  bra.s .samescale
  6990. .scaledown:
  6991.  asl.l d3,d6
  6992.  asl.l d3,d7
  6993. .samescale
  6994.  move.l d6,sxoff
  6995.  move.l d7,szoff
  6996.  bra pastscale 
  6997.  
  6998.  asr.l #3,d1
  6999.  asr.l #3,d2
  7000.  asr.l #2,d1
  7001.  asr.l #2,d2
  7002.  asr.l #1,d1
  7003.  asr.l #1,d2
  7004. scaleprogfrom
  7005.  nop
  7006.  nop
  7007.  asl.l #1,d1
  7008.  asl.l #1,d2
  7009.  asl.l #2,d1
  7010.  asl.l #2,d2
  7011.  asl.l #3,d1
  7012.  asl.l #3,d2
  7013.  
  7014. top: dc.w 0
  7015. bottom: dc.w 0
  7016. ypos: dc.l 0
  7017. nfloors: dc.w 0
  7018. lighttype: dc.w 0
  7019. above: dc.w 0 
  7020. linedir: dc.w 0
  7021. distaddr: dc.w 0
  7022.  
  7023. minz: dc.l 0
  7024.  
  7025. leftsidetab:
  7026.  ds.w 512*2
  7027. rightsidetab:
  7028.  ds.w 512*2
  7029. leftbrighttab:
  7030.  ds.w 512*2
  7031. rightbrighttab:
  7032.  ds.w 512*2
  7033.  
  7034. PointBrights:
  7035.  dc.l 0
  7036. CurrentPointBrights:
  7037.  ds.l 2*256*10
  7038.  
  7039. movespd: dc.w 0
  7040. largespd: dc.l 0
  7041. disttobot: dc.w 0
  7042.  
  7043. pastscale:
  7044.  
  7045.  
  7046.  tst.b drawit(pc)
  7047.  beq dontdrawfloor
  7048.  
  7049.  move.l a0,-(a7)
  7050.  
  7051.  move.l #leftsidetab,a4
  7052.  move.w top(pc),d1
  7053.   
  7054.  tst.w above
  7055.  beq.s clipfloor
  7056.  
  7057.  move.w MIDDLEY,d7
  7058.  subq #1,d7
  7059.  sub.w d1,d7
  7060.  move.w d7,disttobot
  7061.  
  7062.  move.w bottom(pc),d7
  7063.  move.w MIDDLEY,d3
  7064.  move.w d3,d4
  7065.  sub.w topclip,d3
  7066.  sub.w botclip,d4
  7067.  cmp.w d3,d1
  7068.  bge predontdrawfloor
  7069.  cmp.w d4,d7
  7070.  blt predontdrawfloor
  7071.  cmp.w d4,d1
  7072.  bge.s .nocliptoproof
  7073.  move.w d4,d1
  7074. .nocliptoproof
  7075.  cmp.w d3,d7
  7076.  blt doneclip
  7077.  move.w d3,d7
  7078.  bra doneclip
  7079.  
  7080. clipfloor:
  7081.  move.w BOTTOMY,d7
  7082.  sub.w MIDDLEY,d7
  7083.  subq #1,d7
  7084.  sub.w d1,d7
  7085.  move.w d7,disttobot
  7086.  
  7087.  move.w bottom(pc),d7
  7088.  move.w botclip,d4
  7089.  sub.w MIDDLEY,d4
  7090.  cmp.w d4,d1
  7091.  bge predontdrawfloor
  7092.  move.w topclip,d3
  7093.  sub.w MIDDLEY,d3
  7094.  cmp.w d3,d1
  7095.  bge.s .nocliptopfloor
  7096.  move.w d3,d1
  7097. .nocliptopfloor 
  7098.  cmp.w d3,d7
  7099.  ble predontdrawfloor
  7100.  cmp.w d4,d7
  7101.  blt.s .noclipbotfloor
  7102.  move.w d4,d7
  7103. .noclipbotfloor:
  7104.  
  7105. doneclip:
  7106.  
  7107.  lea (a4,d1*2),a4
  7108. ; move.l #dists,a2
  7109.  move.w distaddr,d0
  7110.  muls #64,d0
  7111.  move.l d0,a2
  7112. ; muls #25,d0
  7113. ; adda.w d0,a2
  7114. ; lea (a2,d1*2),a2
  7115.  sub.w d1,d7
  7116.  ble predontdrawfloor 
  7117.  move.w d1,d0
  7118.  bne.s .notzero
  7119.  moveq #1,d0
  7120. .notzero
  7121.  muls linedir,d1
  7122.  add.l d1,a6
  7123. ; sub.l d1,REFPTR
  7124.  move.l #floorscalecols,a1
  7125.  move.l LineToUse,a5
  7126.  
  7127.  tst.b gourfloor
  7128.  bne dogourfloor
  7129.  
  7130.  tst.b anyclipping
  7131.  beq dofloornoclip
  7132.  
  7133. dofloor:
  7134. ; move.w (a2)+,d0
  7135.  move.w leftclip,d3
  7136.  move.w rightclip,d4
  7137.  move.w rightsidetab-leftsidetab(a4),d2
  7138.  
  7139.  addq #1,d2
  7140.  cmp.w d3,d2
  7141.  ble.s nodrawline
  7142.  cmp.w d4,d2
  7143.  ble.s noclipright
  7144.  move.w d4,d2
  7145. noclipright:
  7146.  move.w (a4),d1
  7147.  cmp.w d4,d1
  7148.  bge.s nodrawline
  7149.  cmp.w d3,d1
  7150.  bge.s noclipleft
  7151.  move.w d3,d1
  7152. noclipleft:
  7153.  cmp.w d1,d2
  7154.  ble.s nodrawline
  7155.  
  7156.  move.w d1,leftedge
  7157.  move.w d2,rightedge
  7158.  
  7159. ; moveq #0,d1
  7160. ; moveq #0,d3
  7161. ; move.w leftbrighttab-leftsidetab(a4),d1
  7162. ; bge.s .okbl
  7163. ; moveq #0,d1
  7164. ;.okbl:
  7165.  
  7166. ; move.w rightbrighttab-leftsidetab(a4),d3
  7167. ; bge.s .okbr
  7168. ; moveq #0,d3
  7169. ;.okbr:
  7170.  
  7171. ; sub.w d1,d3
  7172. ; asl.w #8,d1
  7173. ; move.l d1,leftbright
  7174. ; swap d3
  7175. ; asr.l #5,d3
  7176. ; divs d5,d3
  7177. ; move.w d3,d5
  7178. ; muls.w d6,d5
  7179. ; asr.l #3,d5
  7180. ; clr.b d5
  7181. ; add.w d5,leftbright+2
  7182.  
  7183. ; ext.l d3
  7184. ; asl.l #5,d3
  7185. ; swap d3
  7186. ; asl.w #8,d3
  7187. ; move.l d3,brightspd
  7188.  
  7189.  move.l a6,a3
  7190.  movem.l d0/d7/a2/a4/a5/a6,-(a7)
  7191.  move.l a2,d7
  7192.  divs d0,d7
  7193.  move.w d7,d0
  7194.  jsr (a5)
  7195.  movem.l (a7)+,d0/d7/a2/a4/a5/a6
  7196. nodrawline
  7197.  sub.w #1,disttobot
  7198.  move.w linedir(pc),d3
  7199.  adda.w d3,a6
  7200. ; ext.l d3
  7201. ; sub.l d3,REFPTR
  7202.  addq #2,a4
  7203.  addq #1,d0
  7204.  subq #1,d7
  7205.  bgt dofloor
  7206.  
  7207. predontdrawfloor
  7208.  move.l (a7)+,a0
  7209.  
  7210. dontdrawfloor:
  7211.  
  7212.  rts
  7213.  
  7214. anyclipping: dc.w 0
  7215.  
  7216. dofloornoclip:
  7217. ; move.w (a2)+,d0
  7218.  move.w rightsidetab-leftsidetab(a4),d2
  7219.  addq #1,d2
  7220.  move.w (a4)+,d1
  7221.  move.w d1,leftedge
  7222.  move.w d2,rightedge
  7223.  
  7224. ; sub.w d1,d2
  7225.  
  7226. ; moveq #0,d1
  7227. ; moveq #0,d3
  7228. ; move.w leftbrighttab-leftsidetab(a4),d1
  7229. ; bge.s .okbl
  7230. ; moveq #0,d1
  7231. ;.okbl:
  7232.  
  7233. ; move.w rightbrighttab-leftsidetab(a4),d3
  7234. ; bge.s .okbr
  7235. ; moveq #0,d3
  7236. ;.okbr:
  7237.  
  7238. ; sub.w d1,d3
  7239. ; asl.w #8,d1
  7240. ; move.l d1,leftbright
  7241. ; swap d3
  7242. ; asr.l #5,d3
  7243. ; divs d2,d3
  7244. ; ext.l d3
  7245. ; asl.l #5,d3
  7246. ; swap d3
  7247. ; asl.w #8,d3
  7248. ; move.l d3,brightspd
  7249.  
  7250.  move.l a6,a3
  7251.  movem.l d0/d7/a2/a4/a5/a6,-(a7)
  7252.  move.l a2,d7
  7253.  divs d0,d7
  7254.  move.w d7,d0
  7255.  jsr (a5)
  7256.  movem.l (a7)+,d0/d7/a2/a4/a5/a6
  7257.  sub.w #1,disttobot
  7258.  move.w linedir(pc),d3
  7259.  adda.w d3,a6
  7260. ; ext.l d3
  7261. ; sub.l d3,REFPTR
  7262.  addq #1,d0
  7263.  subq #1,d7
  7264.  bgt dofloornoclip
  7265.  
  7266.  bra predontdrawfloor
  7267.  
  7268. dogourfloor:
  7269.  tst.b anyclipping
  7270.  beq dofloornoclipGOUR
  7271.  
  7272. dofloorGOUR:
  7273. ; move.w (a2)+,d0
  7274.  move.w leftclip,d3
  7275.  move.w rightclip,d4
  7276.  move.w rightsidetab-leftsidetab(a4),d2
  7277.  
  7278.  move.w d2,d5
  7279.  sub.w (a4),d5
  7280.  addq #1,d5
  7281.  moveq #0,d6
  7282.  
  7283.  addq #1,d2
  7284.  cmp.w d3,d2
  7285.  ble nodrawlineGOUR
  7286.  cmp.w d4,d2
  7287.  ble.s nocliprightGOUR
  7288.  move.w d4,d2
  7289. nocliprightGOUR:
  7290.  move.w (a4),d1
  7291.  cmp.w d4,d1
  7292.  bge nodrawlineGOUR
  7293.  cmp.w d3,d1
  7294.  bge.s noclipleftGOUR
  7295.  move.w d3,d6
  7296.  subq #1,d6
  7297.  sub.w d1,d6
  7298.  move.w d3,d1
  7299. noclipleftGOUR:
  7300.  cmp.w d1,d2
  7301.  ble nodrawlineGOUR
  7302.  
  7303.  move.w d1,leftedge
  7304.  move.w d2,rightedge
  7305.  
  7306.  move.l a2,d2
  7307.  divs d0,d2
  7308.  move.w d2,dst
  7309.  asr.w #7,d2
  7310. ; addq #5,d2
  7311. ; add.w lighttype,d2
  7312.  
  7313.  moveq #0,d1
  7314.  moveq #0,d3
  7315.  move.w leftbrighttab-leftsidetab(a4),d1
  7316.  add.w d2,d1
  7317.  bge.s .okbl
  7318.  moveq #0,d1
  7319. .okbl:
  7320. ; asr.w #1,d1
  7321.  cmp.w #31,d1
  7322.  ble.s .okdl
  7323.  move.w #31,d1
  7324. .okdl:
  7325.  
  7326.  move.w rightbrighttab-leftsidetab(a4),d3
  7327.  add.w d2,d3
  7328.  bge.s .okbr
  7329.  moveq #0,d3
  7330. .okbr:
  7331. ; asr.w #1,d3
  7332.  cmp.w #31,d3
  7333.  ble.s .okdr
  7334.  move.w #31,d3
  7335. .okdr:
  7336.  
  7337.  sub.w d1,d3
  7338.  asl.w #8,d1
  7339.  move.w d1,leftbright
  7340.  swap d3
  7341.  tst.l d3
  7342.  bgt.s .OKITSPOSALREADY 
  7343.  neg.l d3
  7344.  asr.l #6,d3
  7345.  divs d5,d3
  7346.  neg.w d3
  7347.  bra.s .OKNOWITSNEG
  7348.  
  7349. .OKITSPOSALREADY
  7350.  asr.l #6,d3
  7351.  divs d5,d3
  7352. .OKNOWITSNEG
  7353.  muls d3,d6
  7354.  add.w #256*4,d6
  7355.  asr.w #2,d6
  7356.  clr.b d6
  7357.  add.w leftbright,d6
  7358.  bge.s .oklbnn
  7359.  moveq #0,d6
  7360. .oklbnn:
  7361.  move.w d6,leftbright
  7362.  
  7363.  ext.l d3
  7364.  asr.l #2,d3
  7365. ; swap d3
  7366. ; asl.w #8,d3
  7367.  move.w d3,brightspd
  7368.  
  7369.  move.l a6,a3
  7370.  movem.l d0/d7/a2/a4/a5/a6,-(a7)
  7371.  move.w dst,d0
  7372.  lea floorscalecols,a1
  7373.  move.l floortile,a0
  7374.  adda.w whichtile,a0
  7375.  jsr pastfloorbright
  7376.  movem.l (a7)+,d0/d7/a2/a4/a5/a6
  7377. nodrawlineGOUR
  7378.  
  7379.  sub.w #1,disttobot
  7380.  
  7381.  move.w linedir(pc),d3
  7382.  adda.w d3,a6
  7383. ; ext.l d3
  7384. ; sub.l d3,REFPTR
  7385.  addq #2,a4
  7386.  addq #1,d0
  7387.  subq #1,d7
  7388.  bgt dofloorGOUR
  7389.  
  7390. predontdrawfloorGOUR
  7391.  move.l (a7)+,a0
  7392.  
  7393. dontdrawfloorGOUR:
  7394.  
  7395.  rts
  7396.  
  7397. REFPTR: dc.l 0
  7398.  
  7399. dofloornoclipGOUR:
  7400. ; move.w (a2)+,d0
  7401.  move.w rightsidetab-leftsidetab(a4),d2
  7402.  addq #1,d2
  7403.  move.w (a4),d1
  7404.  move.w d1,leftedge
  7405.  move.w d2,rightedge
  7406.  
  7407.  sub.w d1,d2
  7408.  
  7409.  move.l a2,d6
  7410.  divs d0,d6
  7411.  move.w d6,d5
  7412.  asr.w #7,d5
  7413. ; addq #5,d5
  7414. ; add.w lighttype,d5
  7415.  
  7416.  moveq #0,d1
  7417.  moveq #0,d3
  7418.  move.w leftbrighttab-leftsidetab(a4),d1
  7419.  add.w d5,d1
  7420.  bge.s .okbl
  7421.  moveq #0,d1
  7422. .okbl:
  7423. ; asr.w #1,d1
  7424.  cmp.w #31,d1
  7425.  ble.s .okdl
  7426.  move.w #31,d1
  7427. .okdl:
  7428.  
  7429.  move.w rightbrighttab-leftsidetab(a4),d3
  7430.  add.w d5,d3
  7431.  bge.s .okbr
  7432.  moveq #0,d3
  7433. .okbr:
  7434. ; asr.w #1,d3
  7435.  cmp.w #31,d3
  7436.  ble.s .okdr
  7437.  move.w #31,d3
  7438. .okdr:
  7439.  
  7440. ; sub.w d1,d3
  7441. ; asl.w #8,d1
  7442. ; move.l d1,leftbright
  7443. ; swap d3
  7444. ; asr.l #5,d3
  7445. ; divs d2,d3
  7446. ; ext.l d3
  7447. ; asl.l #5,d3
  7448. ; swap d3
  7449. ; asl.w #8,d3
  7450. ; move.l d3,brightspd
  7451.  
  7452.  sub.w d1,d3
  7453.  asl.w #8,d1
  7454.  move.w d1,leftbright
  7455.  swap d3
  7456.  ext.l d2
  7457.  divs.l d2,d3
  7458.  asr.l #8,d3
  7459.  move.w d3,brightspd
  7460.  
  7461.  move.l a6,a3
  7462.  movem.l d0/d7/a2/a4/a5/a6,-(a7)
  7463.  move.w d6,d0
  7464.  move.w d0,dst
  7465.  lea floorscalecols,a1
  7466.  move.l floortile,a0
  7467.  adda.w whichtile,a0
  7468.  jsr pastfloorbright
  7469.  movem.l (a7)+,d0/d7/a2/a4/a5/a6
  7470.  sub.w #1,disttobot
  7471.  
  7472.  move.w linedir(pc),d3
  7473.  adda.w d3,a6
  7474. ; ext.l d3
  7475. ; sub.l d3,REFPTR
  7476.  
  7477.  addq #2,a4
  7478.  addq #1,d0
  7479.  subq #1,d7
  7480.  bgt dofloornoclipGOUR
  7481.  
  7482.  bra predontdrawfloorGOUR
  7483.  
  7484.  
  7485.  
  7486. dists:
  7487. ; incbin "floordists"
  7488. drawit: dc.w 0
  7489.  
  7490. LineToUse: dc.l 0
  7491.  
  7492. ***************************
  7493. * Right then, time for the floor
  7494. * routine...
  7495. * For test purposes, give it
  7496. * a3 = point to screen
  7497. * d0= z distance away
  7498. * and sinval+cosval must be set up.
  7499. ***************************
  7500.  
  7501. BLACKFLOOR:
  7502.  moveq #0,d0
  7503.  bra.s DOBLACK
  7504.  
  7505. SimpleFloorLine:
  7506.  
  7507.  CACHE_OFF d2
  7508.  
  7509.  move.l #doacrossline,a1
  7510.  move.w leftedge(pc),d1
  7511.  move.w rightedge(pc),d3
  7512.  sub.w d1,d3
  7513.  lea (a1,d1.w*4),a1
  7514.  move.w (a1,d3.w*4),d4
  7515.  move.w #$4e75,(a1,d3.w*4)
  7516.  
  7517.  tst.b CLRNOFLOOR
  7518.  bne.s BLACKFLOOR
  7519.  
  7520.  move.l #PLAINSCALE,a2
  7521.  
  7522.  move.w d0,d2
  7523.  move.w lighttype,d1
  7524.  asr.w #8,d2
  7525.  add.w #5,d1
  7526.  add.w d2,d1
  7527.  bge.s .fixedbright
  7528.  moveq #0,d1
  7529. .fixedbright:
  7530.  cmp.w #28,d1
  7531.  ble.s .smallbright
  7532.  move.w #28,d1
  7533. .smallbright:
  7534.  lea (a2,d1.w*2),a2
  7535.  
  7536.  move.w whichtile,d0
  7537.  move.w d0,d1
  7538.  and.w #$3,d1
  7539.  and.w #$300,d0
  7540.  lsl.b #6,d1
  7541.  move.b d1,d0
  7542.  move.w d0,tstwhich
  7543.  move.w (a2,d0.w),d0
  7544.  
  7545. DOBLACK:
  7546.  jsr (a1)
  7547.  move.w d4,(a1,d3.w*4)
  7548.  
  7549.  CACHE_ON d2
  7550.  
  7551.  rts
  7552.  
  7553. tstwhich: dc.w 0
  7554. whichtile: dc.w 0
  7555.   
  7556. PLAINSCALE: incbin "ab3:includes/plainscale"
  7557.   
  7558. storeit: dc.l 0
  7559.  
  7560. doacrossline:
  7561. val SET 0
  7562.  REPT 32
  7563.  move.w d0,val(a3)
  7564. val SET val+4
  7565.  ENDR
  7566. val SET val+4
  7567.  REPT 32
  7568.  move.w d0,val(a3)
  7569. val SET val+4
  7570.  ENDR
  7571. val SET val+4
  7572.  REPT 32
  7573.  move.w d0,val(a3)
  7574. val SET val+4
  7575.  ENDR
  7576.  rts
  7577.  
  7578.  
  7579. leftedge: dc.w 0
  7580. rightedge: dc.w 0
  7581.  
  7582. rndpt: dc.l rndtab
  7583.  
  7584.  
  7585. dst: dc.w 0
  7586.  
  7587. FloorLine:
  7588.  
  7589.  move.l floortile,a0
  7590.  adda.w whichtile,a0
  7591.  move.w lighttype,d1
  7592.  move.w d0,dst
  7593.  move.w d0,d2
  7594. *********************
  7595. * Old version
  7596.  asr.w #8,d2
  7597.  add.w #5,d1
  7598. *********************
  7599. ; asr.w #3,d2
  7600. ; sub.w #4,d2
  7601. ; cmp.w #6,d2
  7602. ; blt.s flbrbr
  7603. ; move.w #6,d2
  7604. ;flbrbr:
  7605. *********************
  7606.  add.w d2,d1
  7607.  bge.s .fixedbright
  7608.  moveq #0,d1
  7609. .fixedbright:
  7610.  cmp.w #28,d1
  7611.  ble.s .smallbright
  7612.  move.w #28,d1
  7613. .smallbright:
  7614.  lea floorscalecols,a1
  7615.  add.l floorbright(pc,d1.w*4),a1
  7616.  bra pastfloorbright
  7617.  
  7618. ConstCol: dc.w 0
  7619.  
  7620. BumpLine:
  7621.  
  7622.  tst.b smoothbumps
  7623.  beq.s Chunky
  7624.  
  7625.  move.l #SmoothTile,a0
  7626.  lea Smoothscalecols,a1
  7627.  bra pastast
  7628.  
  7629. Chunky:
  7630.  
  7631.  moveq #0,d2
  7632.  move.l #Bumptile,a0
  7633.  move.w whichtile,d2
  7634.  adda.w d2,a0
  7635.  ror.l #2,d2
  7636.  lsr.w #6,d2
  7637.  rol.l #2,d2
  7638.  and.w #15,d2
  7639.  move.l #ConstCols,a1
  7640.  move.w (a1,d2.w*2),ConstCol
  7641.  lea Bumpscalecols,a1
  7642.  
  7643. pastast:
  7644.  move.w lighttype,d1
  7645.  
  7646.  move.w d0,dst
  7647.  
  7648.  move.w d0,d2
  7649. *********************
  7650. * Old version
  7651.  asr.w #8,d2
  7652.  add.w #5,d1
  7653. *********************
  7654. ; asr.w #3,d2
  7655. ; sub.w #4,d2
  7656. ; cmp.w #6,d2
  7657. ; blt.s flbrbr
  7658. ; move.w #6,d2
  7659. ;flbrbr:
  7660. *********************
  7661.  add.w d2,d1
  7662.  bge.s .fixedbright
  7663.  moveq #0,d1
  7664. .fixedbright:
  7665.  cmp.w #31,d1
  7666.  ble.s .smallbright
  7667.  move.w #31,d1
  7668. .smallbright:
  7669.  add.l floorbright(pc,d1.w*4),a1
  7670.  bra pastfloorbright
  7671.  
  7672.  
  7673. floorbright:
  7674.  dc.l 512*0
  7675.  dc.l 512*1
  7676.  dc.l 512*2
  7677.  dc.l 512*3
  7678.  dc.l 512*4
  7679.  
  7680.  dc.l 512*5
  7681.  dc.l 512*6
  7682.  dc.l 512*7
  7683.  dc.l 512*8
  7684.  dc.l 512*9
  7685.  
  7686.  dc.l 512*10
  7687.  dc.l 512*11
  7688.  dc.l 512*12
  7689.  dc.l 512*13
  7690.  dc.l 512*14
  7691.  
  7692.  dc.l 512*15
  7693.  dc.l 512*16
  7694.  dc.l 512*17
  7695.  dc.l 512*18
  7696.  dc.l 512*19
  7697.  
  7698.  dc.l 512*20
  7699.  dc.l 512*21
  7700.  dc.l 512*22
  7701.  dc.l 512*23
  7702.  dc.l 512*24
  7703.  
  7704.  dc.l 512*25
  7705.  dc.l 512*26
  7706.  dc.l 512*27
  7707.  dc.l 512*28
  7708.  dc.l 512*29
  7709.  
  7710.  dc.l 512*30
  7711.  dc.l 512*31
  7712.  
  7713. widthleft: dc.w 0
  7714. scaleval: dc.w 0
  7715. sxoff: dc.l 0
  7716. szoff: dc.l 0
  7717. xoff34: dc.w 0
  7718. zoff34: dc.w 0
  7719. scosval: dc.w 0
  7720. ssinval: dc.w 0
  7721.  
  7722.  
  7723. floorsetbright:
  7724.  move.l #walltiles,a0
  7725.  
  7726. pastfloorbright
  7727.  move.w d0,d1
  7728.  muls cosval,d1    ; change in x across whole width
  7729.  move.w d0,d2
  7730.  muls sinval,d2    ; change in z across whole width
  7731.  neg.l d2
  7732. scaleprog:
  7733.  move.w scaleval(pc),d3
  7734.  beq.s .samescale
  7735.  bgt.s .scaledown
  7736.  neg.w d3
  7737.  asr.l d3,d1
  7738.  asr.l d3,d2
  7739.  bra.s .samescale
  7740. .scaledown:
  7741.  asl.l d3,d1
  7742.  asl.l d3,d2
  7743. .samescale
  7744.  
  7745.  move.l d1,d3 ;    z cos
  7746.  move.l d3,d6
  7747.  move.l d3,d5
  7748.  asr.l #1,d6
  7749.  add.l d6,d3
  7750.  asr.l #1,d3
  7751.  
  7752.  move.l d2,d4    ; z sin
  7753.  move.l d4,d6
  7754.  asr.l #1,d6
  7755.  add.l d4,d6
  7756.  add.l d3,d4
  7757.  neg.l d4    ; start x
  7758.  
  7759.  asr.l #1,d6    ; zsin/2
  7760.  sub.l d6,d5    ; start z
  7761.  
  7762.  add.l sxoff,d4
  7763.  add.l szoff,d5
  7764.  
  7765.  
  7766.  tst.b FULLSCR
  7767.  beq.s .nob
  7768.  
  7769.  moveq #0,d6
  7770.  move.w leftedge(pc),d6
  7771.  beq.s .nomultleftB
  7772.  
  7773.  add.l d6,d6
  7774.  divs #3,d6
  7775.  ext.l d6
  7776.  
  7777.  move.l d1,a4
  7778.  move.l d2,a5
  7779.  
  7780.  muls.l d6,d3:d1
  7781.  asr.l #7,d1
  7782.  add.l d1,d4
  7783.  
  7784.  muls.l d6,d3:d2
  7785.  asr.l #7,d2
  7786.  add.l d2,d5
  7787.  move.l a4,d1
  7788.  move.l a5,d2
  7789.  
  7790.  move.w leftedge(pc),d6
  7791.  
  7792. .nomultleftB:
  7793.  
  7794.  move.w d4,startsmoothx
  7795.  move.w d5,startsmoothz
  7796.  
  7797.  asr.l #8,d4
  7798.  asl.l #8,d5
  7799. ; add.w szoff,d5
  7800. ; add.w sxoff,d4
  7801. ; and.w #63,d4
  7802. ; and.w #63*256,d5
  7803.  
  7804.  move.w d4,d5
  7805.  
  7806.  asr.l #6,d1
  7807.  asr.l #6,d2
  7808.  divs.l #3,d1
  7809.  divs.l #3,d2
  7810.  
  7811.  bra.s doneallmult
  7812.  
  7813. .nob 
  7814.  
  7815.  moveq #0,d6
  7816.  move.w leftedge(pc),d6
  7817.  beq.s nomultleft
  7818.  
  7819.  move.l d1,a4
  7820.  move.l d2,a5
  7821.  
  7822.  muls.l d6,d3:d1
  7823.  asr.l #7,d1
  7824.  add.l d1,d4
  7825.  
  7826.  muls.l d6,d3:d2
  7827.  asr.l #7,d2
  7828.  add.l d2,d5
  7829.  move.l a4,d1
  7830.  move.l a5,d2
  7831.  
  7832.  move.w leftedge(pc),d6
  7833.  
  7834. nomultleft:
  7835.  
  7836.  move.w d4,startsmoothx
  7837.  move.w d5,startsmoothz
  7838.  
  7839.  asr.l #8,d4
  7840.  asl.l #8,d5
  7841. ; add.w szoff,d5
  7842. ; add.w sxoff,d4
  7843. ; and.w #63,d4
  7844. ; and.w #63*256,d5
  7845.  
  7846.  move.w d4,d5
  7847.  
  7848.  asr.l #7,d1
  7849.  asr.l #7,d2
  7850. ; divs.l #3,d1
  7851. ; divs.l #3,d2
  7852.  
  7853. doneallmult:
  7854.  
  7855.  move.w d1,a4
  7856.  move.w d2,a5
  7857.  asl.l #8,d2
  7858. ; and.w #%0011111100000000,d2
  7859.  asr.l #8,d1
  7860.  move.w d1,d2
  7861.  move.l #$3fff3fff,d1
  7862.  and.l d1,d5
  7863. ; swap d5
  7864. ; move.w startsmoothz,d5
  7865. ; swap d5
  7866. ; swap d2
  7867. ; move.w a5,d2
  7868. ; swap d2
  7869.  
  7870. ***********************************
  7871.  
  7872.  move.w d6,a2
  7873. ; move.l d2,d6
  7874. ; add.w #256,d6
  7875.  
  7876.  moveq #0,d0
  7877.  
  7878. ; tst.w a2
  7879. ; beq startatleftedge
  7880.  
  7881. ; move.w widthleft(pc),d4
  7882.  
  7883.  move.w rightedge(pc),d3
  7884.  
  7885.  lea (a3,a2.w*2),a3
  7886. ; move.l REFPTR,a4
  7887. ; lea (a4,a2.w*2),a4
  7888.  
  7889.  move.w d3,d7
  7890.  sub.w a2,d7
  7891.  bra intofirststrip
  7892.  
  7893.  cmp.w #31,a2
  7894.  bgt.s notinfirststrip
  7895.  lea (a3,a2.w*4),a3
  7896.  cmp.w #32,d3
  7897.  ble.s allinfirststrip
  7898.  move.w #32,d7
  7899.  sub.w d7,d3
  7900.  sub.w a2,d7
  7901.  bra intofirststrip
  7902.  
  7903. allinfirststrip
  7904.  sub.w a2,d3
  7905.  move.w d3,d7
  7906.  move.w #0,d4
  7907.  bra allintofirst
  7908.  
  7909. notinfirststrip:
  7910.  sub.w #32,a2
  7911.  sub.w #32,d3
  7912.  adda.w #33*4,a3
  7913.  cmp.w #31,a2
  7914.  bgt.s notstartinsec
  7915.  lea (a3,a2.w*4),a3
  7916.  cmp.w #32,d3
  7917.  ble.s allinsecstrip
  7918.  move.w #32,d7
  7919.  sub.w d7,d3
  7920.  sub.w a2,d7
  7921.  move.w d3,d4
  7922.  bra allintofirst
  7923.  
  7924. allinsecstrip
  7925.  sub.w a2,d3
  7926.  move.w d3,d7
  7927.  move.w #0,d4
  7928.  bra allintofirst
  7929.  rts
  7930.  
  7931. prot8: dc.w 0
  7932.  
  7933. notstartinsec:
  7934.  sub.w #32,a2
  7935.  sub.w #32,d3
  7936.  adda.w #33*4,a3
  7937.  lea (a3,a2.w*4),a3
  7938.  cmp.w #32,d3
  7939.  ble.s allinthirdstrip
  7940.  move.w #32,d7
  7941.  sub.w d7,d3
  7942.  sub.w a2,d7
  7943.  move.w d3,d4
  7944.  bra allintofirst
  7945.  rts
  7946.  
  7947. allinthirdstrip
  7948.  sub.w a2,d3
  7949.  move.w d3,d7
  7950.  move.w #0,d4
  7951.  bra allintofirst
  7952.  rts
  7953.  
  7954. startatleftedge:
  7955.  
  7956. ; move.w rightedge(pc),d3
  7957. ; sub.w a2,d3
  7958. ; 
  7959. ; move.w d3,d7
  7960. ; cmp.w #32,d7
  7961. ; ble.s .notoowide
  7962. ; move.w #32,d7
  7963. ;.notoowide:
  7964. ; sub.w d7,d3
  7965. intofirststrip:
  7966. ;
  7967. ; move.w d3,d4
  7968. allintofirst:
  7969.  
  7970.  move.w startsmoothx,d3
  7971.  
  7972. tstwat:
  7973.  
  7974.  tst.b gourfloor
  7975.  bne gouraudfloor
  7976.  
  7977.  tst.b usewater
  7978.  bne texturedwater
  7979.  
  7980. ******************************
  7981. * BumpMap the floor/ceiling! *
  7982.  tst.b usebumps
  7983.  bne.s BumpMap
  7984. ******************************
  7985.  
  7986. ordinary:
  7987.  moveq #0,d0
  7988.  
  7989.  dbra d7,acrossscrn
  7990.  rts
  7991.  
  7992. usebumps: dc.w $0
  7993. smoothbumps: dc.w $0
  7994. gourfloor: dc.w 0
  7995.  
  7996.  include "ab3:source_4000/bumpmap.s"
  7997.  
  7998.  CNOP 0,4
  7999. backbefore:
  8000.  and.w d1,d5
  8001.  move.b (a0,d5.w*4),d0
  8002.  add.w a4,d3
  8003.  addx.l d6,d5
  8004.  move.w (a1,d0.w*2),(a3)
  8005.  addq #4,a3
  8006.  dbcs d7,acrossscrn
  8007.  dbcc d7,backbefore
  8008.  bra.s past1
  8009.  
  8010. acrossscrn:
  8011.  and.w d1,d5
  8012.  move.b (a0,d5.w*4),d0
  8013.  add.w a4,d3
  8014.  addx.l d2,d5
  8015.  move.w (a1,d0.w*2),(a3)
  8016.  addq #4,a3
  8017.  dbcs d7,acrossscrn
  8018.  dbcc d7,backbefore
  8019. past1:
  8020.  bcc.s gotoacross
  8021.  
  8022.  move.w d4,d7
  8023.  bne.s .notdoneyet
  8024.  rts
  8025. .notdoneyet:
  8026.  
  8027.  cmp.w #32,d7
  8028.  ble.s .notoowide
  8029.  move.w #32,d7
  8030. .notoowide
  8031.  sub.w d7,d4  
  8032.  addq #4,a3
  8033.  
  8034.  dbra d7,backbefore
  8035.  rts
  8036.  
  8037.  
  8038. gotoacross:
  8039.  
  8040.  move.w d4,d7
  8041.  bne.s .notdoneyet
  8042.  rts
  8043. .notdoneyet:
  8044.  
  8045.  cmp.w #32,d7
  8046.  ble.s .notoowide
  8047.  move.w #32,d7
  8048. .notoowide
  8049.  sub.w d7,d4  
  8050.  addq #4,a3
  8051.  
  8052.  dbra d7,acrossscrn
  8053.  rts
  8054.  
  8055. leftbright: dc.l 0
  8056. brightspd: dc.l 0
  8057.  
  8058. gouraudfloor:
  8059.  
  8060.  move.w leftbright,d0
  8061.  move.l d1,d4
  8062.  move.w brightspd,d1
  8063.  
  8064.  move.w d7,d3
  8065.  asr.w #1,d7
  8066.  btst #0,d3
  8067.  beq.s .nosingle1
  8068.  move.w d5,d3
  8069.  move.l d5,d6
  8070.  lsr.w #8,d3
  8071.  swap d6
  8072.  move.b d3,d6
  8073.  move.w d0,d3
  8074.  move.b (a0,d6.w*4),d3
  8075.  add.w d1,d0
  8076.  add.l d2,d5
  8077.  and.l d4,d5
  8078.  move.w (a1,d3.w*2),(a3)+
  8079. .nosingle1
  8080.  
  8081.  move.w d7,d3
  8082.  asr.w #1,d7
  8083.  btst #0,d3
  8084.  beq.s .nosingle2
  8085.  move.w d5,d3
  8086.  move.l d5,d6
  8087.  lsr.w #8,d3
  8088.  swap d6
  8089.  move.b d3,d6
  8090.  move.w d0,d3
  8091.  move.b (a0,d6.w*4),d3
  8092.  add.w d1,d0
  8093.  add.l d2,d5
  8094.  and.l d4,d5
  8095.  move.l d5,d6
  8096.  swap d6
  8097.  move.w (a1,d3.w*2),(a3)+
  8098.  move.w d5,d3
  8099.  lsr.w #8,d3
  8100.  move.b d3,d6
  8101.  move.w d0,d3
  8102.  move.b (a0,d6.w*4),d3
  8103.  add.w d1,d0
  8104.  add.l d2,d5
  8105.  and.l d4,d5
  8106.  move.w (a1,d3.w*2),(a3)+
  8107.  
  8108. .nosingle2
  8109.  
  8110.  move.l d5,d6
  8111.  swap d6
  8112.  
  8113.  dbra d7,acrossscrngour
  8114.  rts
  8115.  
  8116.  CNOP 0,4
  8117.  
  8118. acrossscrngour:
  8119.  move.w d5,d3
  8120.  lsr.w #8,d3
  8121.  move.b d3,d6
  8122.  move.w d0,d3
  8123.  move.b (a0,d6.w*4),d3
  8124.  add.w d1,d0
  8125.  add.l d2,d5
  8126.  and.l d4,d5
  8127.  move.l d5,d6
  8128.  swap d6
  8129.  move.w (a1,d3.w*2),(a3)+
  8130.  move.w d5,d3
  8131.  lsr.w #8,d3
  8132.  move.b d3,d6
  8133.  move.w d0,d3
  8134.  move.b (a0,d6.w*4),d3
  8135.  add.w d1,d0
  8136.  add.l d2,d5
  8137.  and.l d4,d5
  8138.  move.l d5,d6
  8139.  swap d6
  8140.  move.w (a1,d3.w*2),(a3)+
  8141.  move.w d5,d3
  8142.  lsr.w #8,d3
  8143.  move.b d3,d6
  8144.  move.w d0,d3
  8145.  move.b (a0,d6.w*4),d3
  8146.  add.w d1,d0
  8147.  add.l d2,d5
  8148.  and.l d4,d5
  8149.  move.l d5,d6
  8150.  swap d6
  8151.  move.w (a1,d3.w*2),(a3)+
  8152.  move.w d5,d3
  8153.  lsr.w #8,d3
  8154.  move.b d3,d6
  8155.  move.w d0,d3
  8156.  move.b (a0,d6.w*4),d3
  8157.  add.w d1,d0
  8158.  add.l d2,d5
  8159.  and.l d4,d5
  8160.  move.l d5,d6
  8161.  swap d6
  8162.  move.w (a1,d3.w*2),(a3)+
  8163.  dbra d7,acrossscrngour
  8164.  
  8165.  rts
  8166.  
  8167. ;backbeforegour:
  8168. ; and.w #63*256+63,d5
  8169. ; move.b (a0,d5.w*4),d0
  8170. ; add.l d1,d0
  8171. ; bcc.s .nomoreb
  8172. ; add.w #256,d0
  8173. ;.nomoreb:
  8174. ; add.w a4,d3
  8175. ; move.w (a1,d0.w*2),(a3)+
  8176. ; addx.l d6,d5
  8177. ; dbcs d7,acrossscrngour
  8178. ; dbcc d7,backbeforegour
  8179. ; rts
  8180. ; bra.s past1gour
  8181.  
  8182. ;acrossscrngour:
  8183. ; and.l #$3f3f,d5 
  8184. ; move.b (a0,d5.w*4),d0
  8185. ; add.l d1,d0
  8186. ; bcc.s .nomoreb
  8187. ; add.w #256,d0
  8188. ;.nomoreb:
  8189. ; add.w a4,d3
  8190. ; move.w (a1,d0.w*2),(a3)+
  8191. ; addx.l d2,d5
  8192. ; dbcs d7,acrossscrngour
  8193. ; dbcc d7,backbeforegour
  8194. ;past1gour:
  8195. ; rts
  8196.  
  8197.  move.w d4,d7
  8198.  bne.s .notdoneyet
  8199.  move.l d0,leftbright
  8200.  
  8201.  rts
  8202. .notdoneyet:
  8203.  
  8204.  cmp.w #32,d7
  8205.  ble.s .notoowide
  8206.  move.w #32,d7
  8207. .notoowide
  8208.  sub.w d7,d4  
  8209.  addq #4,a3
  8210.  
  8211. ; dbra d7,backbeforegour
  8212.  rts
  8213.  
  8214.  
  8215. gotoacrossgour:
  8216.  
  8217.  move.w d4,d7
  8218.  bne.s .notdoneyet
  8219.  rts
  8220. .notdoneyet:
  8221.  
  8222.  cmp.w #32,d7
  8223.  ble.s .notoowide
  8224.  move.w #32,d7
  8225. .notoowide
  8226.  sub.w d7,d4  
  8227.  addq #4,a3
  8228.  
  8229.  dbra d7,acrossscrngour
  8230.  rts
  8231.  
  8232.  
  8233. waterpt: dc.l waterlist
  8234.  
  8235. waterlist:
  8236.  dc.l waterfile
  8237.  dc.l waterfile+2
  8238.  dc.l waterfile+256
  8239.  dc.l waterfile+256+2
  8240.  dc.l waterfile+512
  8241.  dc.l waterfile+512+2
  8242.  dc.l waterfile+768
  8243.  dc.l waterfile+768+2
  8244. ; dc.l waterfile+768
  8245. ; dc.l waterfile+512+2
  8246. ; dc.l waterfile+512
  8247. ; dc.l waterfile+256+2
  8248. ; dc.l waterfile+256
  8249. ; dc.l waterfile+2
  8250. endwaterlist:
  8251.  
  8252. watertouse: dc.l waterfile
  8253.  
  8254. wtan: dc.w 0
  8255. wateroff: dc.l 0
  8256.  
  8257. REFLECTIONWATER:
  8258.  
  8259.  move.l d1,d4
  8260.  
  8261.  add.l wateroff,d5
  8262.  
  8263.  move.l #brightentab,a1
  8264.  move.w dst,d0
  8265.  clr.b d0
  8266.  
  8267.  add.w d0,d0
  8268.  cmp.w #12*512,d0
  8269.  blt.s .notoowater
  8270.  move.w #12*512,d0
  8271.  
  8272. .notoowater:
  8273.   
  8274.  adda.w d0,a1
  8275.  
  8276.  move.w dst,d0
  8277.  asl.w #7,d0
  8278.  add.w wtan,d0
  8279.  and.w #8191,d0
  8280.  move.l #SineTable,a0
  8281.  move.w (a0,d0.w),d0
  8282.  ext.l d0
  8283.  
  8284.  move.w dst,d3
  8285.  add.w #300,d3
  8286.  divs d3,d0
  8287.  asr.w #5,d0
  8288.  addq #4,d0
  8289.  cmp.w disttobot,d0
  8290.  blt.s oknotoffbotototr
  8291.  
  8292.  move.w disttobot,d0
  8293.  subq #1,d0
  8294.  
  8295. oknotoffbotototr
  8296.  
  8297. ; move.w dst,d3
  8298. ; asr.w #7,d3
  8299. ; add.w d3,d0
  8300.  
  8301.  muls #320*2,d0
  8302.  tst.w above
  8303.  beq.s nonnnnnegr
  8304.  neg.l d0
  8305.  
  8306. nonnnnnegr:
  8307.  
  8308.  move.l d0,a6
  8309.  
  8310.  move.l watertouse,a0
  8311.  
  8312. ; move.l #mixtab,a5
  8313.  
  8314.  moveq #0,d1
  8315.  
  8316.  move.w startsmoothx,d3
  8317.  dbra d7,acrossscrnwr
  8318.  rts
  8319.  
  8320. backbeforewr:
  8321.  and.w d1,d5 
  8322.  move.w (a0,d5.w*4),d0
  8323.  move.b (a3,a6.w),d0
  8324.  move.w (a1,d0.w*2),(a3)+
  8325.  add.w a4,d3
  8326.  addx.l d6,d5
  8327.  dbcs d7,acrossscrnwr
  8328.  dbcc d7,backbeforewr
  8329.  rts
  8330.  
  8331. acrossscrnwr:
  8332.  move.w d5,d3
  8333.  move.l d5,d6
  8334.  lsr.w #8,d3
  8335.  swap d6
  8336.  move.b d3,d6
  8337.  move.w (a0,d6.w*4),d0
  8338.  add.l d2,d5
  8339.  move.w (a4,a6.w),d1
  8340.  addq #2,a4
  8341.  move.b (a3,a6.w),d1
  8342.  move.b (a5,d1.l),d0
  8343.  and.l d4,d5
  8344.  move.w (a1,d0.w*2),(a3)+
  8345.  dbra d7,acrossscrnwr
  8346.  rts
  8347.  
  8348. texturedwater:
  8349.  
  8350.  move.l d1,d4
  8351.  
  8352.  add.l wateroff,d5
  8353.  
  8354.  move.l #brightentab,a1
  8355.  move.w dst,d0
  8356.  clr.b d0
  8357.  
  8358.  add.w d0,d0
  8359.  cmp.w #12*512,d0
  8360.  blt.s .notoowater
  8361.  move.w #12*512,d0
  8362.  
  8363.  
  8364. .notoowater:
  8365.   
  8366.  adda.w d0,a1
  8367.  
  8368.  move.w dst,d0
  8369.  asl.w #7,d0
  8370.  add.w wtan,d0
  8371.  and.w #8191,d0
  8372.  move.l #SineTable,a0
  8373.  move.w (a0,d0.w),d0
  8374.  ext.l d0
  8375.  
  8376.  move.w dst,d3
  8377.  add.w #300,d3
  8378.  divs d3,d0
  8379.  asr.w #5,d0
  8380.  addq #4,d0
  8381.  cmp.w disttobot,d0
  8382.  blt.s oknotoffbototot
  8383.  
  8384.  move.w disttobot,d0
  8385.  subq #1,d0
  8386.  
  8387. oknotoffbototot
  8388.  
  8389. ; move.w dst,d3
  8390. ; asr.w #7,d3
  8391. ; add.w d3,d0
  8392.  
  8393.  muls #320*2,d0
  8394.  tst.w above
  8395.  beq.s nonnnnneg
  8396.  neg.l d0
  8397.  
  8398. nonnnnneg:
  8399.  
  8400.  move.l d0,a6
  8401.  
  8402.  move.l watertouse,a0
  8403.  
  8404.  move.w startsmoothx,d3
  8405.  dbra d7,acrossscrnw
  8406.  rts
  8407.  
  8408. backbeforew:
  8409.  and.w d1,d5
  8410.  move.w (a0,d5.w*4),d0
  8411.  move.b (a3,a6.w),d0
  8412.  move.w (a1,d0.w*2),(a3)+
  8413.  add.w a4,d3
  8414.  addx.l d6,d5
  8415.  dbcs d7,acrossscrnw
  8416.  dbcc d7,backbeforew
  8417.  rts
  8418.  
  8419. acrossscrnw:
  8420.  move.w d5,d3
  8421.  move.l d5,d6
  8422.  lsr.w #8,d3
  8423.  swap d6
  8424.  move.b d3,d6
  8425.  move.w (a0,d6.w*4),d0
  8426.  add.l d2,d5
  8427.  move.b (a3,a6.w),d0
  8428.  and.l d4,d5
  8429.  move.w (a1,d0.w*2),(a3)+
  8430.  dbra d7,acrossscrnw
  8431.  rts
  8432.  
  8433.  
  8434. usewater: dc.w 0
  8435.  dc.w 0
  8436. startsmoothx: dc.w 0
  8437.  dc.w 0
  8438. startsmoothz: dc.w 0
  8439.  
  8440. ********************************
  8441. *
  8442.  include "AB3:source_4000/ObjDrawHIRES.s"
  8443. *
  8444. ********************************
  8445.  
  8446. numframes:
  8447.  dc.w 0
  8448.  
  8449. alframe: dc.l 0
  8450.  
  8451. alan:
  8452.  dcb.l 8,0
  8453.  dcb.l 8,1
  8454.  dcb.l 8,2
  8455.  dcb.l 8,3
  8456. endalan:
  8457.  
  8458. alanptr: dc.l alan
  8459.  
  8460. Time2: dc.l 0
  8461. dispco:
  8462.  dc.w 0
  8463.  
  8464.  
  8465. key_interrupt:
  8466.         movem.l    d0-d7/a0-a6,-(sp)
  8467.  
  8468. ;        move.w    INTREQR,d0
  8469. ;        btst    #3,d0
  8470. ;        beq    .not_key
  8471.  
  8472.         move.b    $bfdd00,d0
  8473.         btst    #0,d0
  8474.         bne    .key_cont
  8475. ;        move.b    $bfed01,d0
  8476. ;        btst    #0,d0
  8477. ;        bne    .key_cont
  8478.     
  8479. ;        btst    #3,d0
  8480. ;        beq    .key_cont
  8481.  
  8482.         move.b    $bfec01,d0
  8483.         clr.b    $bfec01
  8484.  
  8485.         tst.b    d0
  8486.         beq    .key_cont
  8487.  
  8488. ;        bset    #6,$bfee01
  8489. ;        move.b    #$f0,$bfe401
  8490. ;        move.b    #$00,$bfe501
  8491. ;        bset    #0,$bfee01
  8492.  
  8493.  
  8494.         not.b    d0
  8495.         ror.b    #1,d0
  8496.         lea.l    KeyMap,a0
  8497.         tst.b    d0
  8498.         bmi.b    .key_up
  8499.         and.w    #$7f,d0
  8500. ;        add.w    #1,d0
  8501.         move.b    #$ff,(a0,d0.w)
  8502.         move.b    d0,lastpressed
  8503.  
  8504.         bra.b    .key_cont2
  8505. .key_up:
  8506.         and.w    #$7f,d0
  8507. ;        add.w    #1,d0
  8508.         move.b    #$00,(a0,d0.w)
  8509.  
  8510. .key_cont2
  8511. ;        btst    #0,$bfed01
  8512. ;        beq    .key_cont2
  8513. ;        move.b    #%00000000,$bfee01
  8514. ;        move.b    #%10001000,$bfed01
  8515.  
  8516. ;alt keys should not be independent so overlay ralt on lalt
  8517.  
  8518.         
  8519. .key_cont
  8520.  
  8521. ;        move.w    #$0008,INTREQ
  8522. .not_key:    ;lea.l    $dff000,a5
  8523.  
  8524. ;        lea.l    _keypressed(pc),a0
  8525. ;        move.b    101(a0),d0    ;read LALT
  8526. ;        or.b    102(a0),d0    ;blend it with RALT
  8527. ;        move.b    d0,127(a0)    ;save in combined position
  8528.  
  8529.         move.l #0,d0
  8530.         movem.l    (sp)+,d0-d7/a0-a6
  8531.  
  8532.  
  8533.         rts
  8534.  
  8535. lastpressed:    dc.b 0
  8536. KInt_CCode    Ds.b    1
  8537. KInt_Askey    Ds.b    1
  8538. KInt_OCode    Ds.w    1
  8539.  
  8540.  
  8541. OldSpace: dc.b 0
  8542. SpaceTapped: dc.b 0
  8543. PLR1_SPCTAP: dc.b 0
  8544. PLR2_SPCTAP: dc.b 0
  8545. PLR1_Ducked: dc.b 0
  8546. PLR2_Ducked: dc.b 0
  8547.  even
  8548.  
  8549.  include "ab3:source_4000/PLR1CONTROL.s"
  8550.  include "ab3:source_4000/PLR2CONTROL.s"
  8551.  include "ab3:source_4000/FALL.s"
  8552.  
  8553. prot7: dc.w 0
  8554.  
  8555. GOTTOSEND: dc.w 0
  8556.  
  8557. OtherInter:
  8558.  move.w #$0010,$dff000+intreq
  8559.  movem.l d0-d7/a0-a6,-(a7)
  8560.  bra justshake
  8561.  
  8562.     cnop 0,4
  8563.  
  8564. Chan0inter:
  8565.  
  8566.     SAVEREGS
  8567.     jsr    .routine
  8568.     GETREGS
  8569.  
  8570. ;    move.w    #1024+'.',$dff030
  8571.     
  8572.     moveq #0,d0
  8573.     move.l #$dff000,a0
  8574.     rts
  8575.  
  8576. .routine
  8577.  
  8578.     
  8579. ;w move.w #$0010,$dff000+intreq
  8580.  
  8581.  tst.b doanything
  8582.  bne dosomething
  8583.  
  8584.  movem.l d0-d7/a0-a6,-(a7)
  8585.  bra JUSTSOUNDS
  8586.  
  8587.  rts
  8588.  
  8589. tabheld: dc.w 0
  8590. ObjWork: ds.l 512
  8591. WORKPTR: dc.l 0
  8592. thistime: dc.w 0
  8593.  
  8594. DOALLANIMS:
  8595.  
  8596.  sub.b #1,thistime
  8597.  ble.s .okdosome
  8598.  rts
  8599.  
  8600. .okdosome:
  8601.  move.w #5,thistime
  8602.  
  8603.  
  8604.  move.l #ObjWork,a5
  8605.  move.l ObjectData,a0
  8606. Objectloop2:
  8607.  tst.w (a0)
  8608.  blt doneallobj2
  8609.  move.w 12(a0),d0
  8610.  blt doneobj2
  8611.  move.w d0,GraphicRoom(a0)
  8612.  tst.b worry(a0)
  8613.  beq.s doneobj2
  8614.  
  8615.  move.b 16(a0),d0
  8616.  cmp.b #1,d0
  8617.  blt JUMPALIENANIM
  8618.  beq JUMPOBJECTANIM
  8619. ; cmp.b #2,d0
  8620. ; beq JUMPBULLET
  8621.  
  8622. doneobj2:
  8623.  
  8624.  adda.w #64,a0
  8625.  addq #4,a5
  8626.  bra Objectloop2
  8627.  
  8628. doneallobj2:
  8629.  rts
  8630.  
  8631. JUMPALIENANIM:
  8632.  
  8633.  moveq #0,d0
  8634.  move.b WhichAnim(a0),d0
  8635. ; 0=walking
  8636. ; 1=attacking
  8637. ; 2=getting hit
  8638. ; 3=dying
  8639.  
  8640.  cmp.b #1,d0
  8641.  blt.s ALWALK
  8642.  beq.s ALATTACK
  8643.  
  8644.  bra doneobj2
  8645.  
  8646. ALATTACK:
  8647.  move.l #8,d0
  8648.  bra intowalk
  8649.  
  8650.  
  8651. ALWALK:
  8652.  
  8653.  jsr ViewpointToDraw
  8654.  add.l d0,d0
  8655.  
  8656.  tst.b VECOBJ
  8657.  beq.s NOSIDES2
  8658.  moveq #0,d0
  8659. intowalk:
  8660.  
  8661. NOSIDES2:
  8662.  
  8663.  move.b d0,2(a5)
  8664.  move.l LINKFILE,a6
  8665.  add.l #AlienAnimData,a6
  8666.  
  8667.  moveq #0,d1
  8668.  move.b TypeOfThing(a0),d1
  8669.  muls #A_AnimLen,d1
  8670.  add.l d1,a6
  8671.  
  8672. ; move.l ANIMPOINTER,a6
  8673.  
  8674.  
  8675.  muls #A_OptLen,d0
  8676.  add.w d0,a6
  8677.  
  8678.  move.w SecTimer(a0),d1
  8679.  add.w #1,d1
  8680.  move.w d1,d2
  8681.  muls #A_FrameLen,d1
  8682.  tst.b (a6,d1.w)
  8683.  bge.s .noendanim
  8684.  moveq #0,d2
  8685.  moveq #0,d1
  8686. .noendanim
  8687.  move.w d2,SecTimer(a0)
  8688.  
  8689.  moveq #0,d0
  8690.  move.b 5(a6,d1.w),d0
  8691.  beq.s .nosoundmake
  8692.  
  8693.  movem.l d0-d7/a0-a6,-(a7)
  8694.  subq #1,d0
  8695.  move.w d0,Samplenum
  8696.  clr.b notifplaying
  8697.  move.b 1(a0),IDNUM
  8698.  move.w #200,Noisevol
  8699.  move.l #ObjRotated,a1
  8700.  move.w (a0),d0
  8701.  lea (a1,d0.w*8),a1
  8702.  move.l (a1),Noisex
  8703.  jsr MakeSomeNoise
  8704.  movem.l (a7)+,d0-d7/a0-a6
  8705. .nosoundmake
  8706.  
  8707.  move.b 6(a6,d1.w),d0
  8708.  beq.s .noaction
  8709.  add.b #1,(a5)
  8710.  move.b d1,1(a5)
  8711. .noaction
  8712.  bra doneobj2
  8713.  
  8714.  
  8715. JUMPOBJECTANIM:
  8716.  bra doneobj2
  8717.  
  8718.  
  8719. dosomething:
  8720.  
  8721.  
  8722.  addq.w #1,FramesToDraw
  8723.  movem.l d0-d7/a0-a6,-(a7)
  8724.  
  8725.  bsr DOALLANIMS
  8726.  
  8727.  move.l #KeyMap,a5
  8728.  
  8729.  tst.b $42(a5)
  8730.  bne.s .tabprsd
  8731.  clr.b tabheld
  8732.  bra.s .noswitch
  8733.  
  8734. .tabprsd:
  8735.  tst.b tabheld
  8736.  bne.s .noswitch
  8737.  not.b MAPON
  8738.  st tabheld
  8739. .noswitch
  8740.  
  8741.  tst.b $3e(a5)
  8742.  sne d0
  8743.  tst.b $1e(a5)
  8744.  sne d1
  8745.  tst.b $2d(a5)
  8746.  sne d2
  8747.  tst.b $2f(a5)
  8748.  sne d3
  8749.  
  8750.  tst.b $3d(a5)
  8751.  sne d4
  8752.  tst.b $3f(a5)
  8753.  sne d5
  8754.  tst.b $1d(a5)
  8755.  sne d6
  8756.  tst.b $1f(a5)
  8757.  sne d7
  8758.  
  8759.  or.b d4,d0
  8760.  or.b d5,d0
  8761.  or.b d6,d1
  8762.  or.b d7,d1
  8763.  or.b d4,d2
  8764.  or.b d6,d2
  8765.  or.b d7,d3
  8766.  or.b d5,d3
  8767.  
  8768.  move.w MAPBRIGHT,d4
  8769.  add.w #2,d4
  8770.  clr.l d5
  8771.  bset d4,d5
  8772.  
  8773.  tst.b d0
  8774.  beq.s .nomapup
  8775.  sub.w d5,mapzoff
  8776. .nomapup 
  8777.  
  8778.  tst.b d1
  8779.  beq.s .nomapdown
  8780.  add.w d5,mapzoff
  8781. .nomapdown 
  8782.  
  8783.  tst.b d2
  8784.  beq.s .nomapleft
  8785.  add.w d5,mapxoff
  8786. .nomapleft 
  8787.  
  8788.  tst.b d3
  8789.  beq.s .nomapright
  8790.  sub.w d5,mapxoff
  8791. .nomapright 
  8792.  
  8793.  tst.b $2e(a5)
  8794.  beq.s .nomapcentre
  8795.  
  8796.  move.w #0,mapxoff
  8797.  move.w #0,mapzoff
  8798.  
  8799. .nomapcentre
  8800.  
  8801. ; move.w STOPOFFSET,d0
  8802. ; tst.b 27(a5)
  8803. ; beq.s .nolookup
  8804. ; sub.w #5,d0
  8805. ; cmp.w #-80,d0
  8806. ; bgt.s .nolookup
  8807. ; move.w #-80,d0
  8808. ;.nolookup:
  8809. ; tst.b 42(a5)
  8810. ; beq.s .nolookdown
  8811. ; add.w #5,d0
  8812. ; cmp.w #80,d0
  8813. ; blt.s .nolookdown
  8814. ; move.w #80,d0
  8815. ;.nolookdown:
  8816. ;
  8817. ; move.w d0,STOPOFFSET
  8818. ; neg.w d0
  8819. ; add.w #120,d0
  8820. ; move.w d0,SMIDDLEY
  8821. ; muls #320*2,d0
  8822. ; move.l d0,SBIGMIDDLEY
  8823.  
  8824.  move.w STOPOFFSET,d0
  8825.  tst.b 27(a5)
  8826.  beq.s .nolookup
  8827.  
  8828.  sub.w #512,AIMSPD
  8829.  
  8830.  sub.w #5,d0
  8831.  cmp.w #-75,d0
  8832.  bgt.s .nolookup
  8833.  move.w #-512*15,AIMSPD
  8834.  move.w #-75,d0
  8835. .nolookup:
  8836.  tst.b 42(a5)
  8837.  beq.s .nolookdown
  8838.  add.w #512,AIMSPD
  8839.  add.w #5,d0
  8840.  cmp.w #75,d0
  8841.  blt.s .nolookdown
  8842.  move.w #512*15,AIMSPD
  8843.  move.w #75,d0
  8844. .nolookdown:
  8845.  
  8846.  
  8847.  move.w d0,STOPOFFSET
  8848.  neg.w d0
  8849.  add.w TOTHEMIDDLE,d0
  8850.  move.w d0,SMIDDLEY
  8851.  muls #320*2,d0
  8852.  move.l d0,SBIGMIDDLEY
  8853.  
  8854.  
  8855. ; jsr INITREC
  8856. ; jsr RECEIVE
  8857.  
  8858. ; tst.l BUFFER
  8859. ; beq.s justshake
  8860. ; st GOTTOSEND
  8861. ; move.l #OtherInter,$6c
  8862.  
  8863. justshake:
  8864.  
  8865.  cmp.b #'b',Prefsfile+3
  8866.  bne.s .noback
  8867.  jsr mt_music
  8868. .noback:
  8869.  
  8870.  bra dontshowtime
  8871.  
  8872.  tst.b oktodisplay
  8873.  beq dontshowtime
  8874.  clr.b oktodisplay
  8875.  subq.w #1,dispco
  8876.  bgt dontshowtime
  8877.  move.w #10,dispco
  8878.  
  8879.  move.l #TimerScr+10,a0
  8880.  move.l TimeCount,d0
  8881.  bge.s timenotneg
  8882.  move.l #1111*256,d0
  8883. timenotneg:
  8884.  asr.l #8,d0
  8885.  move.l #digits,a1
  8886.  move.w #7,d2
  8887. digitlop
  8888.  divs #10,d0
  8889.  swap d0
  8890.  lea (a1,d0.w*8),a2
  8891.  move.b (a2)+,(a0)
  8892.  move.b (a2)+,24(a0)
  8893.  move.b (a2)+,24*2(a0)
  8894.  move.b (a2)+,24*3(a0)
  8895.  move.b (a2)+,24*4(a0)
  8896.  move.b (a2)+,24*5(a0)
  8897.  move.b (a2)+,24*6(a0)
  8898.  move.b (a2)+,24*7(a0)
  8899.  subq #1,a0
  8900.  swap d0
  8901.  ext.l d0
  8902.  dbra d2,digitlop
  8903.  
  8904.  move.l #TimerScr+10+24*10,a0
  8905.  move.l NumTimes,d0
  8906.  move.l #digits,a1
  8907.  move.w #3,d2
  8908. digitlop2
  8909.  divs #10,d0
  8910.  swap d0
  8911.  lea (a1,d0.w*8),a2
  8912.  move.b (a2)+,(a0)
  8913.  move.b (a2)+,24(a0)
  8914.  move.b (a2)+,24*2(a0)
  8915.  move.b (a2)+,24*3(a0)
  8916.  move.b (a2)+,24*4(a0)
  8917.  move.b (a2)+,24*5(a0)
  8918.  move.b (a2)+,24*6(a0)
  8919.  move.b (a2)+,24*7(a0)
  8920.  subq #1,a0
  8921.  swap d0
  8922.  ext.l d0
  8923.  dbra d2,digitlop2
  8924.  
  8925.  move.l #TimerScr+10+24*20,a0
  8926.  moveq #0,d0
  8927.  move.w FramesToDraw,d0
  8928.  move.l #digits,a1
  8929.  move.w #2,d2
  8930. digitlop3
  8931.  divs #10,d0
  8932.  swap d0
  8933.  lea (a1,d0.w*8),a2
  8934.  move.b (a2)+,(a0)
  8935.  move.b (a2)+,24(a0)
  8936.  move.b (a2)+,24*2(a0)
  8937.  move.b (a2)+,24*3(a0)
  8938.  move.b (a2)+,24*4(a0)
  8939.  move.b (a2)+,24*5(a0)
  8940.  move.b (a2)+,24*6(a0)
  8941.  move.b (a2)+,24*7(a0)
  8942.  subq #1,a0
  8943.  swap d0
  8944.  ext.l d0
  8945.  dbra d2,digitlop3
  8946.  
  8947. dontshowtime:
  8948.  
  8949.  
  8950.  move.l alanptr,a0
  8951.  move.l (a0)+,alframe
  8952.  cmp.l #endalan,a0
  8953.  blt.s nostartalan
  8954.  move.l #alan,a0
  8955. nostartalan:
  8956.  move.l a0,alanptr
  8957.  
  8958.  
  8959.  tst.b READCONTROLS
  8960.  beq.s nocontrols
  8961.  
  8962.  cmp.b #'s',mors
  8963.  beq.s control2
  8964.  
  8965.  tst.b PLR1MOUSE
  8966.  beq.s PLR1_nomouse
  8967.  bsr PLR1_mouse_control
  8968. PLR1_nomouse:
  8969.  tst.b PLR1KEYS
  8970.  beq.s PLR1_nokeys
  8971.  bsr PLR1_keyboard_control
  8972. PLR1_nokeys:
  8973. ; tst.b PLR1PATH
  8974. ; beq.s PLR1_nopath
  8975. ; bsr PLR1_follow_path
  8976. ;PLR1_nopath:
  8977.  tst.b PLR1JOY
  8978.  beq.s PLR1_nojoy
  8979.  bsr PLR1_JoyStick_control
  8980. PLR1_nojoy: 
  8981.  bra.s nocontrols
  8982.  
  8983. control2:
  8984.  tst.b PLR2MOUSE
  8985.  beq.s PLR2_nomouse
  8986.  bsr PLR2_mouse_control
  8987. PLR2_nomouse:
  8988.  tst.b PLR2KEYS
  8989.  beq.s PLR2_nokeys
  8990.  bsr PLR2_keyboard_control
  8991. PLR2_nokeys:
  8992. ; tst.b PLR2PATH
  8993. ; beq.s PLR2_nopath
  8994. ; bsr PLR1_follow_path
  8995. ;PLR2_nopath:
  8996.  tst.b PLR2JOY
  8997.  beq.s PLR2_nojoy
  8998.  bsr PLR2_JoyStick_control
  8999. PLR2_nojoy: 
  9000.  
  9001.  
  9002. nocontrols:
  9003.  
  9004.  move.l #$dff000,a6
  9005.  
  9006.  cmp.b #'4',Prefsfile+1
  9007.  bne.s nomuckabout
  9008.  
  9009.  move.w #$0,d0 
  9010.  tst.b NoiseMade0LEFT
  9011.  beq.s noturnoff0
  9012.  move.w #1,d0
  9013. noturnoff0:
  9014.  tst.b NoiseMade0RIGHT
  9015.  beq.s noturnoff1
  9016.  or.w #2,d0
  9017. noturnoff1:
  9018.  tst.b NoiseMade1RIGHT
  9019.  beq.s noturnoff2
  9020.  or.w #4,d0
  9021. noturnoff2:
  9022.  tst.b NoiseMade1LEFT
  9023.  beq.s noturnoff3
  9024.  or.w #8,d0
  9025. noturnoff3:
  9026.     move.w d0,dmacon(a6)
  9027.  
  9028. nomuckabout:
  9029.  
  9030.  
  9031. ; tst.b PLR2_fire
  9032. ; beq.s firenotpressed2
  9033. ; fire was pressed last time.
  9034. ; btst #7,$bfe001
  9035. ; bne.s firenownotpressed2
  9036. ; fire is still pressed this time.
  9037. ; st PLR2_fire
  9038. ; bra dointer
  9039.  
  9040. firenownotpressed2:
  9041. ; fire has been released.
  9042. ; clr.b PLR2_fire
  9043. ; bra dointer
  9044.  
  9045. firenotpressed2
  9046.  
  9047. ; fire was not pressed last frame...
  9048.  
  9049. ; btst #7,$bfe001
  9050. ; if it has still not been pressed, go back above
  9051. ; bne.s firenownotpressed2
  9052. ; fire was not pressed last time, and was this time, so has
  9053. ; been clicked.
  9054. ; st PLR2_clicked
  9055. ; st PLR2_fire
  9056.  
  9057. dointer
  9058.  
  9059. JUSTSOUNDS:
  9060.  
  9061.  tst.b dosounds
  9062.  beq.s .notthing
  9063.  
  9064.  cmp.b #'4',Prefsfile+1
  9065.     beq fourchannel
  9066.  
  9067.  btst #1,$dff000+intreqr
  9068.     bne.s newsampbitl
  9069.  
  9070. .notthing:
  9071.  
  9072.  movem.l (a7)+,d0-d7/a0-a6
  9073.  
  9074.  moveq #0,d0
  9075.  rts
  9076.  
  9077.  
  9078. dosounds: dc.w 0
  9079.  
  9080. swappedem: dc.w 0
  9081.  
  9082. newsampbitl:
  9083.  
  9084.  move.w #$820f,$dff000+dmacon
  9085.  
  9086.  move.w #$200,$dff000+intreq
  9087.  
  9088. ; tst.b CHANNELDATA
  9089. ; bne nochannel0
  9090.  
  9091.  move.l pos0LEFT,a0
  9092.  move.l pos2LEFT,a1
  9093.  
  9094.  move.l #tab,a2
  9095.  
  9096.  moveq #0,d0
  9097.  moveq #0,d1
  9098.  move.b vol0left,d0
  9099.  move.b vol2left,d1
  9100.  cmp.b d1,d0
  9101.  slt swappedem
  9102.  bge.s fbig0
  9103.  
  9104. ; d1 is bigger so scale d0 and use d1
  9105. ; as audiochannel volume.
  9106.  
  9107.  exg a0,a1
  9108.  asl.w #6,d0
  9109.  divs d1,d0
  9110.  lsl.w #8,d0
  9111.  adda.w d0,a2
  9112.  move.w d1,$dff0a8
  9113.  bra.s donechan0
  9114.  
  9115. fbig0:
  9116.  tst.w d0
  9117.  beq.s donechan0
  9118.  asl.w #6,d1
  9119.  divs d0,d1
  9120.  lsl.w #8,d1
  9121.  adda.w d1,a2
  9122.  move.w d0,$dff0a8
  9123.  
  9124. donechan0:
  9125.  
  9126.  move.l Aupt0,a3
  9127.  move.l a3,$dff0a0
  9128.  move.l Auback0,Aupt0
  9129.  move.l a3,Auback0
  9130.  
  9131.  move.l Auback0,a3
  9132.  
  9133.  moveq #0,d0
  9134.  moveq #0,d1
  9135.  moveq #0,d2
  9136.  moveq #0,d3
  9137.  moveq #0,d4
  9138.  moveq #0,d5
  9139.  move.w #49,d7
  9140. loop:
  9141.  move.l (a0)+,d0
  9142.  move.b (a1)+,d1
  9143.  move.b (a1)+,d2
  9144.  move.b (a1)+,d3
  9145.  move.b (a1)+,d4
  9146.  move.b (a2,d3.w),d5
  9147.  swap d5
  9148.  move.b (a2,d1.w),d5
  9149.  asl.l #8,d5
  9150.  move.b (a2,d2.w),d5
  9151.  swap d5
  9152.  move.b (a2,d4.w),d5
  9153.  add.l d5,d0
  9154.  move.l d0,(a3)+
  9155.  dbra d7,loop
  9156.  
  9157.  tst.b swappedem
  9158.  beq.s .ok23
  9159.  exg a0,a1
  9160. .ok23:
  9161.  
  9162.  cmp.l Samp0endLEFT,a0
  9163.  blt.s .notoffendsamp1
  9164.  move.l #empty,a0
  9165.  move.l #emptyend,Samp0endLEFT
  9166.  move.b #0,vol0left
  9167.  st LEFTCHANDATA+1
  9168.  move.w #0,LEFTCHANDATA+2
  9169. .notoffendsamp1:
  9170.  
  9171.  cmp.l Samp2endLEFT,a1
  9172.  blt.s .notoffendsamp2
  9173.  move.l #empty,a1
  9174.  move.l #emptyend,Samp2endLEFT
  9175.  move.b #0,vol2left
  9176.  st LEFTCHANDATA+1+8
  9177.  move.w #0,LEFTCHANDATA+2+8
  9178. .notoffendsamp2:
  9179.  
  9180.  move.l a0,pos0LEFT
  9181.  move.l a1,pos2LEFT
  9182.  
  9183. nochannel0:
  9184.  
  9185.  tst.b CHANNELDATA+16
  9186.  bne nochannel1
  9187.  
  9188.  
  9189.  move.l pos0RIGHT,a0
  9190.  move.l pos2RIGHT,a1
  9191.  
  9192.  move.l Aupt1,a3
  9193.  move.l a3,$dff0b0
  9194.  move.l Auback1,Aupt1
  9195.  move.l a3,Auback1
  9196.  
  9197.  move.l #tab,a2
  9198.  
  9199.  moveq #0,d0
  9200.  moveq #0,d1
  9201.  move.b vol0right,d0
  9202.  move.b vol2right,d1
  9203.  cmp.b d1,d0
  9204.  slt swappedem
  9205.  bge.s fbig1
  9206.  
  9207. ; d1 is bigger so scale d0 and use d1
  9208. ; as audiochannel volume.
  9209.  
  9210.  exg a0,a1
  9211.  asl.w #6,d0
  9212.  divs d1,d0
  9213.  lsl.w #8,d0
  9214.  adda.w d0,a2
  9215.  move.w d1,$dff0b8
  9216.  bra.s donechan1
  9217.  
  9218. fbig1:
  9219.  tst.w d0
  9220.  beq.s donechan1
  9221.  asl.w #6,d1
  9222.  divs d0,d1
  9223.  lsl.w #8,d1
  9224.  adda.w d1,a2
  9225.  move.w d0,$dff0b8
  9226.  
  9227. donechan1:
  9228.  moveq #0,d0
  9229.  moveq #0,d1
  9230.  moveq #0,d2
  9231.  moveq #0,d3
  9232.  moveq #0,d4
  9233.  moveq #0,d5
  9234.  move.w #49,d7
  9235. loop2:
  9236.  move.l (a0)+,d0
  9237.  move.b (a1)+,d1
  9238.  move.b (a1)+,d2
  9239.  move.b (a1)+,d3
  9240.  move.b (a1)+,d4
  9241.  move.b (a2,d3.w),d5
  9242.  swap d5
  9243.  move.b (a2,d1.w),d5
  9244.  asl.l #8,d5
  9245.  move.b (a2,d2.w),d5
  9246.  swap d5
  9247.  move.b (a2,d4.w),d5
  9248.  add.l d5,d0
  9249.  move.l d0,(a3)+
  9250.  dbra d7,loop2
  9251.  
  9252.  tst.b swappedem
  9253.  beq.s ok01
  9254.  exg a0,a1
  9255. ok01:
  9256.  
  9257.  cmp.l Samp0endRIGHT,a0
  9258.  blt.s .notoffendsamp1
  9259.  move.l #empty,a0
  9260.  move.l #emptyend,Samp0endRIGHT
  9261.  move.b #0,vol0right
  9262.  st RIGHTCHANDATA+1
  9263.  move.w #0,RIGHTCHANDATA+2
  9264. .notoffendsamp1:
  9265.  
  9266.  cmp.l Samp2endRIGHT,a1
  9267.  blt.s .notoffendsamp2
  9268.  move.l #empty,a1
  9269.  move.l #emptyend,Samp2endRIGHT
  9270.  move.b #0,vol2right
  9271.  st RIGHTCHANDATA+1+8
  9272.  move.w #0,RIGHTCHANDATA+2+8
  9273. .notoffendsamp2:
  9274.  
  9275.  move.l a0,pos0RIGHT
  9276.  move.l a1,pos2RIGHT
  9277.  
  9278. nochannel1:
  9279.  
  9280. ******************* Other two channels
  9281.  
  9282.  move.l pos1LEFT,a0
  9283.  move.l pos3LEFT,a1
  9284.  
  9285.  move.l #tab,a2
  9286.  
  9287.  moveq #0,d0
  9288.  moveq #0,d1
  9289.  move.b vol1left,d0
  9290.  move.b vol3left,d1
  9291.  cmp.b d1,d0
  9292.  slt swappedem
  9293.  bge.s fbig2
  9294.  
  9295. ; d1 is bigger so scale d0 and use d1
  9296. ; as audiochannel volume.
  9297.  
  9298.  exg a0,a1
  9299.  asl.w #6,d0
  9300.  divs d1,d0
  9301.  lsl.w #8,d0
  9302.  adda.w d0,a2
  9303.  move.w d1,$dff0d8
  9304.  bra.s donechan2
  9305.  
  9306. fbig2:
  9307.  tst.w d0
  9308.  beq.s donechan2
  9309.  asl.w #6,d1
  9310.  divs d0,d1
  9311.  lsl.w #8,d1
  9312.  adda.w d1,a2
  9313.  move.w d0,$dff0d8
  9314.  
  9315. donechan2:
  9316.  
  9317.  move.l Aupt2,a3
  9318.  move.l a3,$dff0d0
  9319.  move.l Auback2,Aupt2
  9320.  move.l a3,Auback2
  9321.  
  9322.  moveq #0,d0
  9323.  moveq #0,d1
  9324.  moveq #0,d2
  9325.  moveq #0,d3
  9326.  moveq #0,d4
  9327.  moveq #0,d5
  9328.  move.w #49,d7
  9329. loop3:
  9330.  move.l (a0)+,d0
  9331.  move.b (a1)+,d1
  9332.  move.b (a1)+,d2
  9333.  move.b (a1)+,d3
  9334.  move.b (a1)+,d4
  9335.  move.b (a2,d3.w),d5
  9336.  swap d5
  9337.  move.b (a2,d1.w),d5
  9338.  asl.l #8,d5
  9339.  move.b (a2,d2.w),d5
  9340.  swap d5
  9341.  move.b (a2,d4.w),d5
  9342.  add.l d5,d0
  9343.  move.l d0,(a3)+
  9344.  dbra d7,loop3
  9345.  
  9346.  tst.b swappedem
  9347.  beq.s .ok23
  9348.  exg a0,a1
  9349. .ok23:
  9350.  
  9351.  cmp.l Samp1endLEFT,a0
  9352.  blt.s .notoffendsamp3
  9353.  move.l #empty,a0
  9354.  move.l #emptyend,Samp1endLEFT
  9355.  move.b #0,vol1left
  9356.  st LEFTCHANDATA+1+4
  9357.  move.w #0,LEFTCHANDATA+2+4
  9358. .notoffendsamp3:
  9359.  
  9360.  cmp.l Samp3endLEFT,a1
  9361.  blt.s .notoffendsamp4
  9362.  move.l #empty,a1
  9363.  move.l #emptyend,Samp3endLEFT
  9364.  move.b #0,vol3left
  9365.  st LEFTCHANDATA+1+12
  9366.  move.w #0,LEFTCHANDATA+2+12
  9367. .notoffendsamp4:
  9368.  
  9369.  move.l a0,pos1LEFT
  9370.  move.l a1,pos3LEFT
  9371.  
  9372.  move.l pos1RIGHT,a0
  9373.  move.l pos3RIGHT,a1
  9374.  
  9375.  move.l Aupt3,a3
  9376.  move.l a3,$dff0c0
  9377.  move.l Auback3,Aupt3
  9378.  move.l a3,Auback3
  9379.  
  9380.  move.l #tab,a2
  9381.  
  9382.  moveq #0,d0
  9383.  moveq #0,d1
  9384.  move.b vol1right,d0
  9385.  move.b vol3right,d1
  9386.  cmp.b d1,d0
  9387.  slt.s swappedem
  9388.  bge.s fbig3
  9389.  
  9390.  exg a0,a1
  9391.  asl.w #6,d0
  9392.  divs d1,d0
  9393.  lsl.w #8,d0
  9394.  adda.w d0,a2
  9395.  move.w d1,$dff0c8
  9396.  bra.s donechan3
  9397.  
  9398. fbig3:
  9399.  tst.w d0
  9400.  beq.s donechan3
  9401.  asl.w #6,d1
  9402.  divs d0,d1
  9403.  lsl.w #8,d1
  9404.  adda.w d1,a2
  9405.  move.w d0,$dff0c8
  9406. donechan3:
  9407.  
  9408.  moveq #0,d0
  9409.  moveq #0,d1
  9410.  moveq #0,d2
  9411.  moveq #0,d3
  9412.  moveq #0,d4
  9413.  moveq #0,d5
  9414.  move.w #49,d7
  9415. loop4:
  9416.  move.l (a0)+,d0
  9417.  move.b (a1)+,d1
  9418.  move.b (a1)+,d2
  9419.  move.b (a1)+,d3
  9420.  move.b (a1)+,d4
  9421.  move.b (a2,d3.w),d5
  9422.  swap d5
  9423.  move.b (a2,d1.w),d5
  9424.  asl.l #8,d5
  9425.  move.b (a2,d2.w),d5
  9426.  swap d5
  9427.  move.b (a2,d4.w),d5
  9428.  add.l d5,d0
  9429.  move.l d0,(a3)+
  9430.  dbra d7,loop4
  9431.  
  9432.  tst.b swappedem
  9433.  beq.s .ok23
  9434.  exg a0,a1
  9435. .ok23:
  9436.  
  9437.  cmp.l Samp1endRIGHT,a0
  9438.  blt.s notoffendsamp3
  9439.  move.l #empty,a0
  9440.  move.l #emptyend,Samp1endRIGHT
  9441.  move.b #0,vol1right
  9442.  st RIGHTCHANDATA+1+4
  9443.  move.w #0,RIGHTCHANDATA+2+4
  9444. notoffendsamp3:
  9445.  
  9446.  cmp.l Samp3endRIGHT,a1
  9447.  blt.s notoffendsamp4
  9448.  move.l #empty,a1
  9449.  move.l #emptyend,Samp3endRIGHT
  9450.  move.b #0,vol3right
  9451.  st RIGHTCHANDATA+1+12
  9452.  move.w #0,RIGHTCHANDATA+2+12
  9453. notoffendsamp4:
  9454.  
  9455.  move.l a0,pos1RIGHT
  9456.  move.l a1,pos3RIGHT
  9457.  
  9458.  movem.l (a7)+,d0-d7/a0-a6
  9459.  tst.b counting
  9460.  beq .nostartcounter
  9461.  JSR STARTCOUNT
  9462. .nostartcounter:
  9463.  
  9464.  moveq #0,d0
  9465.  rts
  9466.  
  9467. ***********************************
  9468. * 4 channel sound routine
  9469. ***********************************
  9470.  
  9471. fourchannel:
  9472.  
  9473.  move.l #$dff000,a6
  9474.  
  9475.  btst #7,intreqrl(a6)
  9476.  beq.s nofinish0
  9477. ; move.w #0,LEFTCHANDATA+2
  9478. ; st LEFTCHANDATA+1
  9479.  move.l #null,$a0(a6)
  9480.  move.w #100,$a4(a6) 
  9481.  move.w #$0080,intreq(a6)
  9482. nofinish0:
  9483.  
  9484.  tst.b NoiseMade0pLEFT
  9485.  beq.s NoChan0sound
  9486.  
  9487.  move.l Samp0endLEFT,d0
  9488.  move.l pos0LEFT,d1
  9489.  sub.l d1,d0
  9490.  lsr.l #1,d0
  9491.  move.w d0,$a4(a6)
  9492.  move.l d1,$a0(a6)
  9493.  move.w #$8201,dmacon(a6)
  9494.  moveq #0,d0
  9495.  move.b vol0left,d0
  9496.  move.w d0,$a8(a6)
  9497.  
  9498. NoChan0sound:
  9499.  
  9500. *****************************************
  9501. *****************************************
  9502.  
  9503.  btst #0,intreqr(a6)
  9504.  beq.s nofinish1
  9505.  move.l #null,$b0(a6)
  9506.  move.w #100,$b4(a6)
  9507.  move.w #$0100,intreq(a6)
  9508. nofinish1:
  9509.  
  9510.  tst.b NoiseMade0pRIGHT
  9511.  beq.s NoChan1sound
  9512.  
  9513.  move.l Samp0endRIGHT,d0
  9514.  move.l pos0RIGHT,d1
  9515.  sub.l d1,d0
  9516.  lsr.l #1,d0
  9517.  move.w d0,$b4(a6)
  9518.  move.l d1,$b0(a6)
  9519.  move.w d0,playnull1
  9520.  move.w #$8202,dmacon(a6)
  9521.  moveq #0,d0
  9522.  move.b vol0right,d0
  9523.  move.w d0,$b8(a6)
  9524.  
  9525. NoChan1sound:
  9526.  
  9527. *****************************************
  9528. *****************************************
  9529.  
  9530.  btst #1,intreqr(a6)
  9531.  beq.s nofinish2
  9532.  move.l #null,$c0(a6)
  9533.  move.w #100,$c4(a6)
  9534.  move.w #$0200,intreq(a6)
  9535. nofinish2:
  9536.  
  9537.  tst.b NoiseMade1pRIGHT
  9538.  beq.s NoChan2sound
  9539.  
  9540.  move.l Samp1endRIGHT,d0
  9541.  move.l pos1RIGHT,d1
  9542.  sub.l d1,d0
  9543.  lsr.l #1,d0
  9544.  move.w d0,$c4(a6)
  9545.  move.w d0,playnull2
  9546.  
  9547.  move.l d1,$c0(a6)
  9548.  move.w #$8204,dmacon(a6)
  9549.  moveq #0,d0
  9550.  move.b vol1right,d0
  9551.  move.w d0,$c8(a6)
  9552.  
  9553. NoChan2sound:
  9554.  
  9555. *****************************************
  9556. *****************************************
  9557.  
  9558.  btst #2,intreqr(a6)
  9559.  beq.s nofinish3
  9560.  move.l #null,$d0(a6)
  9561.  move.w #100,$d4(a6)
  9562.  move.w #$0400,intreq(a6)
  9563. nofinish3:
  9564.  
  9565.  tst.b NoiseMade1pLEFT
  9566.  beq.s NoChan3sound
  9567.  
  9568.  move.l Samp1endLEFT,d0
  9569.  move.l pos1LEFT,d1
  9570.  sub.l d1,d0
  9571.  lsr.l #1,d0
  9572.  move.w d0,$d4(a6)
  9573.  move.w d0,playnull3
  9574.  move.l d1,$d0(a6)
  9575.  move.w #$8208,dmacon(a6)
  9576.  moveq #0,d0
  9577.  move.b vol1left,d0
  9578.  move.w d0,$d8(a6)
  9579.  
  9580. NoChan3sound:
  9581.  
  9582. nomorechannels:
  9583.  
  9584.  move.l NoiseMade0LEFT,NoiseMade0pLEFT
  9585.  move.l #0,NoiseMade0LEFT
  9586.  move.l NoiseMade0RIGHT,NoiseMade0pRIGHT
  9587.  move.l #0,NoiseMade0RIGHT
  9588.  
  9589. ; tst.b playnull0
  9590. ; beq.s .nnul
  9591. ; sub.b #1,playnull0
  9592. ; bra.s chan0still
  9593. ;.nnul:
  9594. ; 
  9595. ;chan0still:
  9596.  
  9597.  tst.b NoiseMade0pLEFT
  9598.  bne.s chan0still
  9599.  tst.w playnull0
  9600.  beq.s nnul0
  9601.  sub.w #100,playnull0
  9602.  bra.s chan0still
  9603. nnul0:
  9604.  move.w #0,LEFTCHANDATA+2
  9605.  st LEFTCHANDATA+1
  9606. chan0still:
  9607.  
  9608.  tst.b NoiseMade0pRIGHT
  9609.  bne.s chan1still
  9610.  tst.w playnull1
  9611.  beq.s nnul1
  9612.  sub.w #100,playnull1
  9613.  bra.s chan1still
  9614. nnul1:
  9615.  move.w #0,RIGHTCHANDATA+2
  9616.  st RIGHTCHANDATA+1
  9617. chan1still:
  9618.  
  9619.  tst.b NoiseMade1pRIGHT
  9620.  bne.s chan2still
  9621.  tst.w playnull2
  9622.  beq.s nnul2
  9623.  sub.w #100,playnull2
  9624.  bra.s chan2still
  9625. nnul2:
  9626.  move.w #0,RIGHTCHANDATA+2+4
  9627.  st RIGHTCHANDATA+1+4
  9628. chan2still:
  9629.  
  9630.  tst.b NoiseMade1pLEFT
  9631.  bne.s chan3still
  9632.  tst.w playnull3
  9633.  beq.s nnul3
  9634.  sub.w #100,playnull3
  9635.  bra.s chan3still
  9636. nnul3:
  9637.  move.w #0,LEFTCHANDATA+2+4
  9638.  st LEFTCHANDATA+1+4
  9639.  
  9640. chan3still:
  9641.  
  9642.  
  9643.  movem.l (a7)+,d0-d7/a0-a6
  9644.  
  9645.  moveq #0,d0
  9646.  rts
  9647.  
  9648. backbeat: dc.w 0
  9649.  
  9650. playnull0: dc.w 0
  9651. playnull1: dc.w 0
  9652. playnull2: dc.w 0
  9653. playnull3: dc.w 0
  9654.  
  9655. Samp0endRIGHT: dc.l emptyend
  9656. Samp1endRIGHT: dc.l emptyend
  9657. Samp2endRIGHT: dc.l emptyend
  9658. Samp3endRIGHT: dc.l emptyend
  9659. Samp0endLEFT: dc.l emptyend
  9660. Samp1endLEFT: dc.l emptyend
  9661. Samp2endLEFT: dc.l emptyend
  9662. Samp3endLEFT: dc.l emptyend
  9663.  
  9664. Aupt0: dc.l null
  9665. Auback0: dc.l null+500
  9666. Aupt2: dc.l null3
  9667. Auback2: dc.l null3+500
  9668. Aupt3: dc.l null4
  9669. Auback3: dc.l null4+500
  9670. Aupt1: dc.l null2
  9671. Auback1: dc.l null2+500
  9672.  
  9673. NoiseMade0LEFT: dc.b 0
  9674. NoiseMade1LEFT: dc.b 0
  9675. NoiseMade2LEFT: dc.b 0
  9676. NoiseMade3LEFT: dc.b 0
  9677. NoiseMade0pLEFT: dc.b 0
  9678. NoiseMade1pLEFT: dc.b 0
  9679. NoiseMade2pLEFT: dc.b 0
  9680. NoiseMade3pLEFT: dc.b 0
  9681. NoiseMade0RIGHT: dc.b 0
  9682. NoiseMade1RIGHT: dc.b 0
  9683. NoiseMade2RIGHT: dc.b 0
  9684. NoiseMade3RIGHT: dc.b 0
  9685. NoiseMade0pRIGHT: dc.b 0
  9686. NoiseMade1pRIGHT: dc.b 0
  9687. NoiseMade2pRIGHT: dc.b 0
  9688. NoiseMade3pRIGHT: dc.b 0
  9689.  
  9690. empty: ds.l 100
  9691. emptyend:
  9692.  
  9693. **************************************
  9694. * I want a routine to calculate all the
  9695. * info needed for the sound player to
  9696. * work, given say position of noise, volume
  9697. * and sample number.
  9698.  
  9699. Samplenum: dc.w 0
  9700. Noisex: dc.w 0
  9701. Noisez: dc.w 0
  9702. Noisevol: dc.w 0
  9703. chanpick: dc.w 0
  9704. IDNUM: dc.w 0
  9705. needleft: dc.b 0
  9706. needright: dc.b 0
  9707. STEREO: dc.b $0
  9708. even
  9709. prot6: dc.w 0
  9710.  
  9711.  even
  9712.  
  9713. CHANNELDATA:
  9714. LEFTCHANDATA:
  9715.  dc.l $00000000
  9716.  dc.l $00000000
  9717.  dc.l $FF000000
  9718.  dc.l $FF000000
  9719. RIGHTCHANDATA:
  9720.  dc.l $00000000
  9721.  dc.l $00000000
  9722.  dc.l $FF000000
  9723.  dc.l $FF000000
  9724.  
  9725. RIGHTPLAYEDTAB: ds.l 20
  9726. LEFTPLAYEDTAB: ds.l 20
  9727.  
  9728. MakeSomeNoise:
  9729.  
  9730. ; Plan for new sound handler:
  9731. ; It is sent a sample number,
  9732. ; a position relative to the
  9733. ; player, an id number and a volume.
  9734. ; Also notifplaying.
  9735.  
  9736. ; indirect inputs are the available
  9737. ; channel flags and whether or not
  9738. ; stereo sound is selected.
  9739.  
  9740. ; the algorithm must decide
  9741. ; whether the new sound is more
  9742. ; important than the ones already
  9743. ; playing. Thus an 'importance'
  9744. ; must be calculated, probably
  9745. ; using volume.
  9746.  
  9747. ; The output needs to be:
  9748.  
  9749. ; Write the pointers and volumes of
  9750. ; the sound channels
  9751.  
  9752.  
  9753.  tst.b notifplaying
  9754.  beq.s dontworry
  9755.  
  9756. ; find if we are already playing
  9757.  
  9758.  move.b IDNUM,d0
  9759.  move.w #7,d1
  9760.  lea CHANNELDATA,a3
  9761. findsameasme
  9762.  tst.b (a3)
  9763.  bne.s notavail
  9764.  cmp.b 1(a3),d0
  9765.  beq SameAsMe
  9766. notavail:
  9767.  add.w #4,a3
  9768.  dbra d1,findsameasme
  9769.  bra dontworry
  9770. SameAsMe
  9771.  rts
  9772.  
  9773. noiseloud: dc.w 0
  9774.  
  9775. dontworry:
  9776.  
  9777. ; Ok its fine for us to play a sound.
  9778. ; So calculate left/right volume.
  9779.  
  9780.  move.w Noisex,d1
  9781.  muls d1,d1
  9782.  move.w Noisez,d2
  9783.  muls d2,d2
  9784.  move.w #64,d3
  9785.  move.w #32767,noiseloud
  9786.  moveq #1,d0
  9787.  add.l d1,d2
  9788.  beq pastcalc
  9789.  
  9790.  move.w #31,d0
  9791. .findhigh
  9792.  btst d0,d2
  9793.  bne .foundhigh
  9794.  dbra d0,.findhigh
  9795. .foundhigh
  9796.  asr.w #1,d0
  9797.  clr.l d3
  9798.  bset d0,d3
  9799.  move.l d3,d0
  9800.  
  9801.  move.w d0,d3
  9802.  muls d3,d3    ; x*x
  9803.  sub.l d2,d3    ; x*x-a
  9804.  asr.l #1,d3    ; (x*x-a)/2
  9805.  divs d0,d3    ; (x*x-a)/2x
  9806.  sub.w d3,d0    ; second approx
  9807.  bgt .stillnot0
  9808.  move.w #1,d0
  9809. .stillnot0
  9810.  
  9811.  move.w d0,d3
  9812.  muls d3,d3
  9813.  sub.l d2,d3
  9814.  asr.l #1,d3
  9815.  divs d0,d3
  9816.  sub.w d3,d0    ; second approx
  9817.  bgt .stillnot02
  9818.  move.w #1,d0
  9819. .stillnot02
  9820.  
  9821.  move.w Noisevol,d3
  9822.  ext.l d3
  9823.  asl.l #6,d3
  9824.  cmp.l #32767,d3
  9825.  ble.s .nnnn
  9826.  move.l #32767,d3
  9827. .nnnn
  9828.  
  9829.  asr.w #2,d0
  9830.  addq #1,d0
  9831.  divs d0,d3
  9832.  
  9833.  move.w d3,noiseloud
  9834.  
  9835.  cmp.w #64,d3
  9836.  ble.s notooloud
  9837.  move.w #64,d3
  9838. notooloud:
  9839.  
  9840. pastcalc:
  9841.  
  9842.     ; d3 contains volume of noise.
  9843.     
  9844.  move.w d3,d4
  9845.  tst.b STEREO
  9846.  beq NOSTEREO
  9847.  
  9848.  move.w d3,d2
  9849.  muls Noisex,d2
  9850.  asl.w #2,d0
  9851.  divs d0,d2
  9852.  
  9853.  bgt.s quietleft
  9854.  add.w d2,d4
  9855.  bge.s donequiet
  9856.  move.w #0,d4
  9857.  bra.s donequiet
  9858. quietleft:
  9859.  sub.w d2,d3
  9860.  bge.s donequiet
  9861.  move.w #0,d3
  9862. donequiet:
  9863.  
  9864. ; d3=leftvol?
  9865. ; d4=rightvol?
  9866.  
  9867.  clr.w needleft
  9868.  
  9869.  cmp.b d3,d4
  9870.  bgt.s RightLouder
  9871.  
  9872. ; Left is louder; is it MUCH louder?
  9873.  
  9874.  st needleft
  9875.  move.w d3,d2
  9876.  sub.w d4,d2
  9877.  cmp.w #32,d2
  9878.  slt needright
  9879.  bra aboutsame
  9880.  
  9881. RightLouder:
  9882.  st needright
  9883.  move.w d4,d2
  9884.  sub.w d3,d2
  9885.  cmp.w #32,d2
  9886.  slt needleft
  9887.  
  9888. aboutsame:
  9889.  
  9890.  
  9891. ; Find least important sound on left
  9892.  
  9893.  move.l #0,a2
  9894.  move.l #0,d5
  9895.  move.w #32767,d2
  9896.  move.b IDNUM,d0
  9897.  lea LEFTCHANDATA,a3
  9898.  move.w #3,d1
  9899. FindLeftChannel
  9900.  tst.b (a3)
  9901.  bne.s .notactive
  9902.  cmp.b 1(a3),d0
  9903.  beq.s FOUNDLEFT
  9904.  cmp.w 2(a3),d2
  9905.  blt.s .notactive
  9906.  move.w 2(a3),d2
  9907.  move.l a3,a2
  9908.  move.w d5,d6
  9909.  
  9910. .notactive:
  9911.  add.w #4,a3
  9912.  add.w #1,d5
  9913.  dbra d1,FindLeftChannel
  9914.  move.l a2,a3
  9915.  bra.s gopastleft
  9916. FOUNDLEFT:
  9917.  move.w d5,d6
  9918. gopastleft:
  9919.  tst.l a3
  9920.  bne.s FOUNDALEFT
  9921.  rts
  9922. FOUNDALEFT:
  9923.  
  9924. ; d6 = channel number
  9925.  move.b d0,1(a3)
  9926.  move.w d3,2(a3)
  9927.  
  9928.  move.w Samplenum,d5
  9929.  move.l #SampleList,a3
  9930.  move.l (a3,d5.w*8),a1
  9931.  move.l 4(a3,d5.w*8),a2
  9932.  
  9933.  tst.b d6
  9934.  seq NoiseMade0LEFT
  9935.  beq.s .chan0
  9936.  cmp.b #2,d6
  9937.  slt NoiseMade1LEFT
  9938.  blt .chan1
  9939.  seq NoiseMade2LEFT
  9940.  beq .chan2
  9941.  st NoiseMade3LEFT
  9942.  
  9943.  move.b d5,LEFTPLAYEDTAB+9
  9944.  move.b d3,LEFTPLAYEDTAB+1+9
  9945.  move.b d4,LEFTPLAYEDTAB+2+9
  9946.  move.b d3,vol3left
  9947.  move.l a1,pos3LEFT
  9948.  move.l a2,Samp3endLEFT
  9949.  bra dorightchan
  9950.  
  9951. .chan0: 
  9952.  move.b d5,LEFTPLAYEDTAB
  9953.  move.b d3,LEFTPLAYEDTAB+1
  9954.  move.b d4,LEFTPLAYEDTAB+2
  9955.  move.l a1,pos0LEFT
  9956.  move.l a2,Samp0endLEFT
  9957.  move.b d3,vol0left
  9958.  bra dorightchan
  9959.  
  9960. .chan1:
  9961.  move.b d5,LEFTPLAYEDTAB+3
  9962.  move.b d3,LEFTPLAYEDTAB+1+3
  9963.  move.b d4,LEFTPLAYEDTAB+2+3
  9964.  move.b d3,vol1left
  9965.  move.l a1,pos1LEFT
  9966.  move.l a2,Samp1endLEFT
  9967.  bra dorightchan
  9968.  
  9969. .chan2: 
  9970.  move.b d5,LEFTPLAYEDTAB+6
  9971.  move.b d3,LEFTPLAYEDTAB+1+6
  9972.  move.b d4,LEFTPLAYEDTAB+2+6
  9973.  move.l a1,pos2LEFT
  9974.  move.l a2,Samp2endLEFT
  9975.  move.b d3,vol2left
  9976.  
  9977. dorightchan:
  9978.  
  9979. ; Find least important sound on right
  9980.  
  9981.  move.l #0,a2
  9982.  move.l #0,d5
  9983.  move.w #10000,d2
  9984.  move.b IDNUM,d0
  9985.  lea RIGHTCHANDATA,a3
  9986.  move.w #3,d1
  9987. FindRightChannel
  9988.  tst.b (a3)
  9989.  bne.s .notactive
  9990.  cmp.b 1(a3),d0
  9991.  beq.s FOUNDRIGHT
  9992.  cmp.w 2(a3),d2
  9993.  blt.s .notactive
  9994.  move.w 2(a3),d2
  9995.  move.l a3,a2
  9996.  move.w d5,d6
  9997.  
  9998. .notactive:
  9999.  add.w #4,a3
  10000.  add.w #1,d5
  10001.  dbra d1,FindRightChannel
  10002.  move.l a2,a3
  10003.  bra.s gopastright
  10004. FOUNDRIGHT:
  10005.  move.w d5,d6
  10006. gopastright:
  10007.  tst.l a3
  10008.  bne.s FOUNDARIGHT
  10009.  rts
  10010. FOUNDARIGHT:
  10011.  
  10012. ; d6 = channel number
  10013.  move.b d0,1(a3)
  10014.  move.w d3,2(a3)
  10015.  
  10016.  move.w Samplenum,d5
  10017.  move.l #SampleList,a3
  10018.  move.l (a3,d5.w*8),a1
  10019.  move.l 4(a3,d5.w*8),a2
  10020.  
  10021.  tst.b d6
  10022.  seq NoiseMade0RIGHT
  10023.  beq.s .chan0
  10024.  cmp.b #2,d6
  10025.  slt NoiseMade1RIGHT
  10026.  blt .chan1
  10027.  seq NoiseMade2RIGHT
  10028.  beq .chan2
  10029.  st NoiseMade3RIGHT
  10030.  
  10031.  move.b d5,RIGHTPLAYEDTAB+9
  10032.  move.b d3,RIGHTPLAYEDTAB+1+9
  10033.  move.b d4,RIGHTPLAYEDTAB+2+9
  10034.  move.b d4,vol3right
  10035.  move.l a1,pos3RIGHT
  10036.  move.l a2,Samp3endRIGHT
  10037.  rts
  10038.  
  10039. .chan0: 
  10040.  move.b d5,RIGHTPLAYEDTAB
  10041.  move.b d3,RIGHTPLAYEDTAB+1
  10042.  move.b d4,RIGHTPLAYEDTAB+2
  10043.  move.l a1,pos0RIGHT
  10044.  move.l a2,Samp0endRIGHT
  10045.  move.b d4,vol0right
  10046.  rts
  10047.  
  10048. .chan1:
  10049.  move.b d5,RIGHTPLAYEDTAB+3
  10050.  move.b d3,RIGHTPLAYEDTAB+1+3
  10051.  move.b d4,RIGHTPLAYEDTAB+2+3
  10052.  move.b d3,vol1right
  10053.  move.l a1,pos1RIGHT
  10054.  move.l a2,Samp1endRIGHT
  10055.  rts
  10056.  
  10057. .chan2: 
  10058.  move.b d5,RIGHTPLAYEDTAB+6
  10059.  move.b d3,RIGHTPLAYEDTAB+1+6
  10060.  move.b d4,RIGHTPLAYEDTAB+2+6
  10061.  move.l a1,pos2RIGHT
  10062.  move.l a2,Samp2endRIGHT
  10063.  move.b d3,vol2right
  10064.  rts
  10065.  
  10066. NOSTEREO:
  10067.  move.l #0,a2
  10068.  move.l #-1,d5
  10069.  move.w #32767,d2
  10070.  move.b IDNUM,d0
  10071.  lea CHANNELDATA,a3
  10072.  move.w #7,d1
  10073. FindChannel
  10074.  tst.b (a3)
  10075.  bne.s .notactive
  10076.  cmp.b 1(a3),d0
  10077.  beq.s FOUNDCHAN
  10078.  cmp.w 2(a3),d2
  10079.  blt.s .notactive
  10080.  move.w 2(a3),d2
  10081.  move.l a3,a2
  10082.  move.w d5,d6
  10083.  add.w #1,d6
  10084.  
  10085. .notactive:
  10086.  add.w #4,a3
  10087.  add.w #1,d5
  10088.  dbra d1,FindChannel
  10089.  
  10090.  move.l a2,a3
  10091.  bra.s gopastchan
  10092. FOUNDCHAN:
  10093.  move.w d5,d6
  10094.  add.w #1,d6
  10095. gopastchan:
  10096.  tst.w d6
  10097.  bge.s FOUNDACHAN
  10098. tooquiet:
  10099.  rts
  10100. FOUNDACHAN:
  10101.  
  10102. ; d6 = channel number
  10103.  
  10104.  cmp.w noiseloud,d2
  10105.  bgt.s tooquiet
  10106.  
  10107.  move.b d0,1(a3)
  10108.  move.w noiseloud,2(a3)
  10109.  
  10110.  move.w Samplenum,d5
  10111.  move.l #SampleList,a3
  10112.  move.l (a3,d5.w*8),a1
  10113.  move.l 4(a3,d5.w*8),a2
  10114.  
  10115.  tst.b d6
  10116.  beq .chan0
  10117.  cmp.b #2,d6
  10118.  blt .chan1
  10119.  beq .chan2
  10120.  cmp.b #4,d6
  10121.  blt .chan3
  10122.  beq .chan4
  10123.  cmp.b #6,d6
  10124.  blt .chan5
  10125.  beq .chan6
  10126.  st NoiseMade3RIGHT
  10127.  
  10128.  move.b d5,RIGHTPLAYEDTAB+9
  10129.  move.b d3,RIGHTPLAYEDTAB+1+9
  10130.  move.b d4,RIGHTPLAYEDTAB+2+9
  10131.  move.b d4,vol3right
  10132.  move.l a1,pos3RIGHT
  10133.  move.l a2,Samp3endRIGHT
  10134.  rts
  10135.  
  10136. .chan3:
  10137.  st NoiseMade3LEFT
  10138.  move.b d5,LEFTPLAYEDTAB+9
  10139.  move.b d3,LEFTPLAYEDTAB+1+9
  10140.  move.b d4,LEFTPLAYEDTAB+2+9
  10141.  move.b d3,vol3left
  10142.  move.l a1,pos3LEFT
  10143.  move.l a2,Samp3endLEFT
  10144.  bra dorightchan
  10145.  
  10146. .chan0: 
  10147.  st NoiseMade0LEFT
  10148.  move.b d5,LEFTPLAYEDTAB
  10149.  move.b d3,LEFTPLAYEDTAB+1
  10150.  move.b d4,LEFTPLAYEDTAB+2
  10151.  move.l a1,pos0LEFT
  10152.  move.l a2,Samp0endLEFT
  10153.  move.b d3,vol0left
  10154.  rts
  10155.  
  10156. .chan1:
  10157.  st NoiseMade1LEFT
  10158.  move.b d5,LEFTPLAYEDTAB+3
  10159.  move.b d3,LEFTPLAYEDTAB+1+3
  10160.  move.b d4,LEFTPLAYEDTAB+2+3
  10161.  move.b d3,vol1left
  10162.  move.l a1,pos1LEFT
  10163.  move.l a2,Samp1endLEFT
  10164.  rts
  10165.  
  10166. .chan2: 
  10167.  st NoiseMade2LEFT
  10168.  move.b d5,LEFTPLAYEDTAB+6
  10169.  move.b d3,LEFTPLAYEDTAB+1+6
  10170.  move.b d4,LEFTPLAYEDTAB+2+6
  10171.  move.l a1,pos2LEFT
  10172.  move.l a2,Samp2endLEFT
  10173.  move.b d3,vol2left
  10174.  rts
  10175.  
  10176. .chan4: 
  10177.  st NoiseMade0RIGHT
  10178.  move.b d5,RIGHTPLAYEDTAB
  10179.  move.b d3,RIGHTPLAYEDTAB+1
  10180.  move.b d4,RIGHTPLAYEDTAB+2
  10181.  move.l a1,pos0RIGHT
  10182.  move.l a2,Samp0endRIGHT
  10183.  move.b d4,vol0right
  10184.  rts
  10185.  
  10186. .chan5:
  10187.  st NoiseMade1RIGHT
  10188.  move.b d5,RIGHTPLAYEDTAB+3
  10189.  move.b d3,RIGHTPLAYEDTAB+1+3
  10190.  move.b d4,RIGHTPLAYEDTAB+2+3
  10191.  move.b d3,vol1right
  10192.  move.l a1,pos1RIGHT
  10193.  move.l a2,Samp1endRIGHT
  10194.  rts
  10195.  
  10196. .chan6: 
  10197.  st NoiseMade2RIGHT
  10198.  move.b d5,RIGHTPLAYEDTAB+6
  10199.  move.b d3,RIGHTPLAYEDTAB+1+6
  10200.  move.b d4,RIGHTPLAYEDTAB+2+6
  10201.  move.l a1,pos2RIGHT
  10202.  move.l a2,Samp2endRIGHT
  10203.  move.b d3,vol2right
  10204.  rts
  10205.  
  10206. SampleList:
  10207.  dc.l Scream,EndScream
  10208.  dc.l Shoot,EndShoot
  10209.  dc.l Munch,EndMunch
  10210.  dc.l PooGun,EndPooGun
  10211.  dc.l Collect,EndCollect
  10212. ;5
  10213.  dc.l DoorNoise,EndDoorNoise
  10214.  dc.l 0,0
  10215.  dc.l Stomp,EndStomp
  10216.  dc.l LowScream,EndLowScream
  10217.  dc.l BaddieGun,EndBaddieGun
  10218. ;10
  10219.  dc.l SwitchNoise,EndSwitch
  10220.  dc.l Reload,EndReload
  10221.  dc.l NoAmmo,EndNoAmmo
  10222.  dc.l Splotch,EndSplotch
  10223.  dc.l SplatPop,EndSplatPop
  10224. ;15
  10225.  dc.l Boom,EndBoom
  10226.  dc.l Hiss,EndHiss
  10227.  dc.l Howl1,EndHowl1
  10228.  dc.l Howl2,EndHowl2
  10229.  dc.l Pant,EndPant
  10230. ;20
  10231.  dc.l Whoosh,EndWhoosh
  10232.  dc.l ROAR,EndROAR
  10233.  dc.l whoosh,Endwhoosh
  10234.  dc.l 0,0
  10235.  dc.l 0,0
  10236.  dc.l 0,0
  10237.  dc.l 0,0
  10238.  dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  10239.  dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  10240.  dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  10241.  dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  10242.  
  10243.  dc.l 0
  10244.  
  10245. storeval: dc.w 0
  10246.  
  10247.  include "ab3:source_4000/wallchunk.s"
  10248.  include "ab3:source_4000/newloadfromdisk.s"
  10249.  include "ab3:source_4000/screensetup.s"
  10250.  include "ab3:source_4000/WBCONTROLLOOP.s"
  10251.  include "ab3:source_4000/WBSETUP"
  10252.  
  10253.  
  10254.  
  10255. saveinters:  
  10256.  dc.w 0
  10257.  
  10258. z: dc.w 10
  10259.  
  10260. notifplaying:
  10261.  dc.w 0
  10262.  
  10263. audpos1: dc.w 0
  10264. audpos1b: dc.w 0
  10265. audpos2: dc.w 0
  10266. audpos2b: dc.w 0
  10267. audpos3: dc.w 0
  10268. audpos3b: dc.w 0
  10269. audpos4: dc.w 0
  10270. audpos4b: dc.w 0
  10271.  
  10272. vol0left: dc.w 0
  10273. vol0right: dc.w 0
  10274. vol1left: dc.w 0
  10275. vol1right: dc.w 0
  10276. vol2left: dc.w 0
  10277. vol2right: dc.w 0
  10278. vol3left: dc.w 0
  10279. vol3right: dc.w 0
  10280.  
  10281. pos: dc.l 0
  10282.  
  10283. pos0LEFT: dc.l empty
  10284. pos1LEFT: dc.l empty
  10285. pos2LEFT: dc.l empty
  10286. pos3LEFT: dc.l empty
  10287. pos0RIGHT: dc.l empty
  10288. pos1RIGHT: dc.l empty
  10289. pos2RIGHT: dc.l empty
  10290. pos3RIGHT: dc.l empty
  10291.  
  10292. numtodo dc.w 0
  10293.  
  10294. npt: dc.w 0
  10295.  
  10296. pretab:
  10297. val SET 0
  10298.  REPT 128
  10299.  dc.b val
  10300. val SET val+1
  10301.  ENDR
  10302. val SET -128
  10303.  REPT 128
  10304.  dc.b val
  10305. val SET val+1
  10306.  ENDR 
  10307.  
  10308. tab:
  10309.  ds.b 256*65
  10310.  
  10311.  
  10312. test: dc.l 0
  10313.  ds.l 30
  10314.  
  10315.  even
  10316. ConstCols:
  10317. ; incbin "ConstCols"
  10318.  even
  10319. Smoothscalecols:
  10320. ; incbin "smoothbumppalscaled"
  10321.  even
  10322. SmoothTile:
  10323. ; incbin "smoothbumptile"
  10324.  even
  10325. Bumpscalecols:
  10326. ; incbin "Bumppalscaled"
  10327.  even
  10328. Bumptile:
  10329. ; incbin "bumptile"
  10330.  even
  10331. scalecols: ;incbin "bytepixpalscaled"
  10332.  even
  10333. floorscalecols:
  10334.  incbin "ab3:includes/floor256pal"
  10335.  ds.w 256*4
  10336.  
  10337.  even
  10338. PaletteAddr: dc.l 0
  10339. ChunkAddr: dc.l 0
  10340. ;walltiles:
  10341. ; dc.l GreenMechanicWALL
  10342. ; dc.l BlueGreyMetalWALL
  10343. ; dc.l TechnoDetailWALL
  10344. ; dc.l BlueStoneWALL
  10345. ; dc.l RedAlertWALL
  10346. ; dc.l RockWALL
  10347. ;
  10348. ;GreenMechanicWALL: incbin "ab3:includes/walls/greenmechanic.wad"
  10349. ;BlueGreyMetalWALL: incbin "ab3:includes/walls/BlueGreyMetal.wad"
  10350. ;TechnoDetailWALL: incbin "ab3:includes/walls/TechnoDetail.wad"
  10351. ;BlueStoneWALL: incbin "ab3:includes/walls/bluestone.wad"
  10352. ;RedAlertWALL: incbin "ab3:includes/walls/redalert.wad"
  10353. ;RockWALL: incbin "ab3:includes/walls/rock.wad"
  10354.  
  10355. floortile:
  10356.  dc.l 0
  10357. ; incbin "floortile" 
  10358.  even
  10359. wallrouts:
  10360. ; incbin "2x2WallDraw" 
  10361.  CNOP 0,64
  10362. BackPicture:
  10363.  incbin "ab3:includes/rawback"
  10364. EndBackPicture:
  10365.  
  10366. drawpt: dc.l 0
  10367. olddrawpt: dc.l 0
  10368. frompt: dc.l 0 
  10369.  
  10370. SineTable:
  10371.  incbin "ab3:includes/bigsine"
  10372.  
  10373. angspd: dc.w 0
  10374. flooryoff: dc.w 0
  10375. xoff: dc.l 0
  10376. yoff: dc.l 0
  10377. yvel: dc.l 0
  10378. zoff: dc.l 0
  10379. tyoff: dc.l 0
  10380. xspdval: dc.l 0
  10381. zspdval: dc.l 0
  10382. Zone: dc.w 0
  10383.  
  10384. PLR1: dc.b $ff
  10385.  even
  10386. PLR1_energy: dc.w 191
  10387. PLR1_GunSelected: dc.w 0
  10388. PLR1_cosval: dc.w 0
  10389. PLR1_sinval: dc.w 0
  10390. PLR1_angpos: dc.w 0
  10391. PLR1_angspd: dc.w 0
  10392. PLR1_xoff: dc.l 0
  10393. PLR1_yoff: dc.l 0
  10394. PLR1_yvel: dc.l 0
  10395. PLR1_zoff: dc.l 0
  10396. PLR1_tyoff: dc.l 0
  10397. PLR1_xspdval: dc.l 0
  10398. PLR1_zspdval: dc.l 0
  10399. PLR1_Zone: dc.w 0
  10400. PLR1_Roompt: dc.l 0
  10401. PLR1_OldRoompt: dc.l 0
  10402. PLR1_PointsToRotatePtr: dc.l 0
  10403. PLR1_ListOfGraphRooms: dc.l 0
  10404. PLR1_oldxoff: dc.l 0
  10405. PLR1_oldzoff: dc.l 0
  10406. PLR1_StoodInTop: dc.b 0
  10407.  even
  10408. PLR1_height: dc.l 0
  10409.  
  10410.  ds.w 4
  10411.  
  10412. OLDX1: dc.l 0
  10413. OLDX2: dc.l 0
  10414. OLDZ1: dc.l 0
  10415. OLDZ2: dc.l 0
  10416.  
  10417. XDIFF1: dc.l 0
  10418. ZDIFF1: dc.l 0
  10419. XDIFF2: dc.l 0
  10420. ZDIFF2: dc.l 0
  10421.  
  10422. PLR1s_cosval: dc.w 0
  10423. PLR1s_sinval: dc.w 0
  10424. PLR1s_angpos: dc.w 0
  10425. PLR1s_angspd: dc.w 0
  10426. PLR1s_xoff: dc.l 0
  10427. PLR1s_yoff: dc.l 0
  10428. PLR1s_yvel: dc.l 0
  10429. PLR1s_zoff: dc.l 0
  10430. PLR1s_tyoff: dc.l 0
  10431. PLR1s_xspdval: dc.l 0
  10432. PLR1s_zspdval: dc.l 0
  10433. PLR1s_Zone: dc.w 0
  10434. PLR1s_Roompt: dc.l 0
  10435. PLR1s_OldRoompt: dc.l 0
  10436. PLR1s_PointsToRotatePtr: dc.l 0
  10437. PLR1s_ListOfGraphRooms: dc.l 0
  10438. PLR1s_oldxoff: dc.l 0
  10439. PLR1s_oldzoff: dc.l 0
  10440. PLR1s_height: dc.l 0
  10441. PLR1s_targheight: dc.l 0
  10442.  
  10443. p1_xoff: dc.l 0
  10444. p1_zoff: dc.l 0
  10445. p1_yoff: dc.l 0
  10446. p1_height: dc.l 0
  10447. p1_angpos: dc.w 0
  10448. p1_bobble: dc.w 0
  10449. p1_clicked: dc.b 0
  10450. p1_spctap: dc.b 0
  10451. p1_ducked: dc.b 0
  10452. p1_gunselected: dc.b 0
  10453. p1_fire: dc.b 0
  10454.  even
  10455. p1_holddown: dc.w 0
  10456.  
  10457.  ds.w 4
  10458.  
  10459. PLR2: dc.b $ff
  10460.  even
  10461. PLR2_GunSelected: dc.w 0
  10462. PLR2_energy: dc.w 191
  10463. PLR2_cosval: dc.w 0
  10464. PLR2_sinval: dc.w 0
  10465. PLR2_angpos: dc.w 0
  10466. PLR2_angspd: dc.w 0
  10467. PLR2_xoff: dc.l 0
  10468. PLR2_yoff: dc.l 0
  10469. PLR2_yvel: dc.l 0
  10470. PLR2_zoff: dc.l 0
  10471. PLR2_tyoff: dc.l 0
  10472. PLR2_xspdval: dc.l 0
  10473. PLR2_zspdval: dc.l 0
  10474. PLR2_Zone: dc.w 0
  10475. PLR2_Roompt: dc.l 0
  10476. PLR2_OldRoompt: dc.l 0
  10477. PLR2_PointsToRotatePtr: dc.l 0
  10478. PLR2_ListOfGraphRooms: dc.l 0
  10479. PLR2_oldxoff: dc.l 0
  10480. PLR2_oldzoff: dc.l 0
  10481. PLR2_StoodInTop: dc.b 0
  10482.  even
  10483. PLR2_height: dc.l 0
  10484.  
  10485.  ds.w 4
  10486.  
  10487. PLR2s_cosval: dc.w 0
  10488. PLR2s_sinval: dc.w 0
  10489. PLR2s_angpos: dc.w 0
  10490. PLR2s_angspd: dc.w 0
  10491. PLR2s_xoff: dc.l 0
  10492. PLR2s_yoff: dc.l 0
  10493. PLR2s_yvel: dc.l 0
  10494. PLR2s_zoff: dc.l 0
  10495. PLR2s_tyoff: dc.l 0
  10496. PLR2s_xspdval: dc.l 0
  10497. PLR2s_zspdval: dc.l 0
  10498. PLR2s_Zone: dc.w 0
  10499. PLR2s_Roompt: dc.l 0
  10500. PLR2s_OldRoompt: dc.l 0
  10501. PLR2s_PointsToRotatePtr: dc.l 0
  10502. PLR2s_ListOfGraphRooms: dc.l 0
  10503. PLR2s_oldxoff: dc.l 0
  10504. PLR2s_oldzoff: dc.l 0
  10505. PLR2s_height: dc.l 0
  10506. PLR2s_targheight: dc.l 0
  10507.  
  10508.  ds.w 4
  10509.  
  10510. p2_xoff: dc.l 0
  10511. p2_zoff: dc.l 0
  10512. p2_yoff: dc.l 0
  10513. p2_height: dc.l 0
  10514. p2_angpos: dc.w 0
  10515. p2_bobble: dc.w 0
  10516. p2_clicked: dc.b 0
  10517. p2_spctap: dc.b 0
  10518. p2_ducked: dc.b 0
  10519. p2_gunselected: dc.b 0
  10520. p2_fire: dc.b 0
  10521.  even
  10522. p2_holddown: dc.w 0
  10523.  
  10524. liftanimtab:
  10525.  
  10526. endliftanimtab:
  10527.  
  10528. glassball:
  10529. ; incbin "glassball.inc"
  10530.  
  10531. endglass
  10532. glassballpt: dc.l glassball
  10533.  
  10534. rndtab: ; incbin "randfile"
  10535. endrnd: 
  10536.  
  10537. brightanimtab:
  10538.  dcb.w 200,20
  10539.  dc.w 5
  10540.  dc.w 10,20
  10541.  dc.w 5
  10542.  dcb.w 30,20
  10543.  dc.w 7,10,10,5,10,0,5,6,5,6,5,6,5,6,0
  10544.  dcb.w 40,0
  10545.  dc.w 1,2,3,2,3,2,3,2,3,2,3,2,3,0
  10546.  dcb.w 300,0
  10547.  dc.w 1,0,1,0,2,2,2,5,5,5,5,5,5,5,5,5,6,10
  10548.  dc.w -1
  10549.  
  10550. Roompt: dc.l 0
  10551. OldRoompt: dc.l 0
  10552.  
  10553. *****************************************************************
  10554.  *
  10555.  include "AB3:source_4000/LevelData2"
  10556.  *
  10557. *****************************************************************
  10558.  
  10559.  
  10560. wallpt: dc.l 0
  10561. floorpt: dc.l 0
  10562.  
  10563. Rotated:
  10564.  ds.l 2*800 
  10565. ObjRotated:
  10566.  ds.l 2*500
  10567.  
  10568. OnScreen:
  10569.  ds.l 2*800 
  10570.  
  10571. startwait: dc.w 0
  10572. endwait: dc.w 0
  10573.  
  10574. Faces:; incbin "faces2raw"
  10575.  
  10576. LINKS: ds.b 10000
  10577. FLYLINKS: ds.b 10000
  10578.  
  10579. *******************************************************************
  10580.  
  10581. consttab:
  10582.  incbin "ab3:includes/constantfile"
  10583.  
  10584. *******************************************************************
  10585.  
  10586.  
  10587.  
  10588. *********************************
  10589.  
  10590. ; include "ab3:source_4000/loadmod.a"
  10591. ; include "ab3:source_4000/proplayer.a"
  10592.  
  10593.  
  10594. darkentab: 
  10595. ;val SET 0
  10596. ; REPT 256
  10597. ; dc.b val
  10598. ;val SET val+1
  10599. ; ENDR
  10600.  incbin "ab3:includes/darkenfile"
  10601.  
  10602. MIDDLEX: dc.w 0
  10603. RIGHTX: dc.w 192
  10604. FULLSCR: dc.w 0
  10605.  
  10606. SHADINGTABLE: incbin "ab3:includes/SHADEFILE" 
  10607.  
  10608. ******************************************
  10609. * Link file !*****************************
  10610. ******************************************
  10611.  
  10612. LINKSPACE:
  10613.  incbin "ab3:includes/test.lnk"
  10614.  
  10615. LINKFILE:
  10616.  dc.l LINKSPACE
  10617.  
  10618. ******************************************
  10619.  
  10620.  
  10621. brightentab: incbin "ab3:includes/brightenfile"
  10622. WorkSpace:
  10623.  ds.l 8192 
  10624. waterfile: incbin "ab3:includes/waterfile"
  10625.  
  10626.  SECTION ffff,CODE_C
  10627.  
  10628. nullspr: dc.l 0
  10629.  
  10630.  cnop 0,8
  10631. borders:
  10632.  incbin "ab3:includes/newleftbord"
  10633.  incbin "ab3:includes/newrightbord"
  10634.  
  10635. health: incbin "ab3:includes/healthstrip"
  10636. Ammunition: incbin "ab3:includes/ammostrip"
  10637. healthpal: incbin "ab3:includes/healthpal"
  10638. PanelKeys: incbin "ab3:includes/greenkey"
  10639.  incbin "ab3:includes/redkey"
  10640.  incbin "ab3:includes/yellowkey"
  10641.  incbin "ab3:includes/bluekey"
  10642.  
  10643. null: ds.w 500
  10644. null2: ds.w 500
  10645. null3: ds.w 500
  10646. null4: ds.w 500
  10647.  
  10648.  
  10649. Blurbfield:
  10650.  
  10651.  dc.w bpl1ptl
  10652. bl1l: dc.w 0
  10653.  dc.w bpl1pth
  10654. bl1h: dc.w 0
  10655.  
  10656.  dc.w diwstart,$2c81
  10657.  dc.w diwstop,$1cc1
  10658.  dc.w ddfstart,$38
  10659.  dc.w ddfstop,$b8
  10660.  dc.w bplcon0,$9201
  10661.  dc.w bplcon1,0
  10662.  dc.w $106,$c40
  10663. blcols:
  10664.  dc.w col0,0
  10665.  dc.w col1,$fff
  10666.  
  10667.  dc.w $108,0
  10668.  dc.w $10a,0
  10669.  
  10670.  dc.w $ffff,$fffe
  10671.  dc.w $ffff,$fffe
  10672.  
  10673. nullline:
  10674.  ds.b 80    
  10675.  
  10676.  include "ab3:source_4000/titlecop.s"
  10677.  
  10678. bigfield:    
  10679.                 ; Start of our copper list.
  10680.  
  10681.  dc.w dmacon,$8020
  10682.  dc.w intreq,$8011
  10683.  dc.w $1fc,$f
  10684.  dc.w diwstart
  10685. winstart: dc.w $2c81
  10686.  dc.w diwstop
  10687. winstop: dc.w $2cc1
  10688.  dc.w ddfstart
  10689. fetchstart: dc.w $38
  10690.  dc.w ddfstop
  10691. fetchstop: dc.w $b8
  10692.  
  10693. bordercols:
  10694.  incbin "ab3:includes/borderpal"
  10695.  
  10696.  dc.w spr0ptl
  10697. s0l:
  10698.  dc.w 0
  10699.  dc.w spr0pth
  10700. s0h:
  10701.  dc.w 0
  10702.  dc.w spr1ptl
  10703. s1l:
  10704.  dc.w 0
  10705.  dc.w spr1pth
  10706. s1h:
  10707.  dc.w 0
  10708.  dc.w spr2ptl
  10709. s2l:
  10710.  dc.w 0
  10711.  dc.w spr2pth
  10712. s2h:
  10713.  dc.w 0
  10714.  dc.w spr3ptl
  10715. s3l:
  10716.  dc.w 0
  10717.  dc.w spr3pth
  10718. s3h:
  10719.  dc.w 0
  10720.  dc.w spr4ptl
  10721. s4l:
  10722.  dc.w 0
  10723.  dc.w spr4pth
  10724. s4h:
  10725.  dc.w 0
  10726.  dc.w spr5ptl
  10727. s5l:
  10728.  dc.w 0
  10729.  dc.w spr5pth
  10730. s5h:
  10731.  dc.w 0
  10732.  dc.w spr6ptl
  10733. s6l:
  10734.  dc.w 0
  10735.  dc.w spr6pth
  10736. s6h:
  10737.  dc.w 0
  10738.  dc.w spr7ptl
  10739. s7l:
  10740.  dc.w 0
  10741.  dc.w spr7pth
  10742. s7h:
  10743.  dc.w 0
  10744.  
  10745.  
  10746. ; dc.w $106,$c42
  10747. ; incbin "borderpal"
  10748.  
  10749.  dc.w $106,$c42
  10750.  
  10751.  dc.w bplcon0,$0211
  10752.  dc.w bplcon1
  10753. smoff:
  10754.  dc.w $0
  10755.  
  10756.  dc.w $108
  10757. modulo: dc.w 0
  10758.  dc.w $10a,0
  10759.  
  10760.  dc.w $1001,$ff00
  10761.  dc.w intreq,$11
  10762.  
  10763.  dc.w $2001,$ff00
  10764.  
  10765.  dc.w bpl1pth
  10766. pl1h
  10767.  dc.w 0
  10768.  
  10769.  dc.w bpl1ptl
  10770. pl1l
  10771.  dc.w 0
  10772.  
  10773.  dc.w bpl2pth
  10774. pl2h
  10775.  dc.w 0
  10776.  
  10777.  dc.w bpl2ptl
  10778. pl2l
  10779.  dc.w 0
  10780.  
  10781.  dc.w bpl3pth
  10782. pl3h
  10783.  dc.w 0
  10784.  
  10785.  dc.w bpl3ptl
  10786. pl3l
  10787.  dc.w 0
  10788.  
  10789.  dc.w bpl4pth
  10790. pl4h
  10791.  dc.w 0
  10792.  
  10793.  dc.w bpl4ptl
  10794. pl4l
  10795.  dc.w 0
  10796.  
  10797.  dc.w bpl5pth
  10798. pl5h
  10799.  dc.w 0
  10800.  
  10801.  dc.w bpl5ptl
  10802. pl5l
  10803.  dc.w 0
  10804.  
  10805.  dc.w bpl6pth
  10806. pl6h
  10807.  dc.w 0
  10808.  
  10809.  dc.w bpl6ptl
  10810. pl6l
  10811.  dc.w 0
  10812.  
  10813.  dc.w bpl7pth
  10814. pl7h
  10815.  dc.w 0
  10816.  
  10817.  dc.w bpl7ptl
  10818. pl7l
  10819.  dc.w 0
  10820.  
  10821.  dc.w bpl8pth
  10822. pl8h
  10823.  dc.w 0
  10824.  
  10825.  dc.w bpl8ptl
  10826. pl8l
  10827.  dc.w 0
  10828.  
  10829. ; dc.w $80
  10830. ;JUMPBACKH:
  10831. ; dc.w 0
  10832. ; dc.w $82
  10833. ;JUMPBACKL:
  10834. ; dc.w 0
  10835.  
  10836.  dc.w $8a,0
  10837.  
  10838.  dc.w $ffff,$fffe
  10839.  dc.w $ffff,$fffe
  10840.  
  10841. COPIEDPAL:
  10842.  dc.w 256,0
  10843.  ds.l 3*256
  10844.  ds.l 10
  10845.  
  10846. PALETTEBIT:
  10847. ; incbin "256palette"
  10848. ; dc.w $ffff,$fffe
  10849.  
  10850.  
  10851.  
  10852.  incbin "ab3:includes/256pal"
  10853.  
  10854. yposcop:
  10855. ; dc.w $2a11,$fffe
  10856. ; dc.w $8a,0
  10857.  
  10858. ; ds.l 104*12
  10859.  
  10860. ;colbars:
  10861. ;val SET $2a
  10862. ; dcb.l 104*80,$1fe0000
  10863. ; dc.w $106,$c42
  10864. ; 
  10865. ; dc.w $80
  10866. ;pch1:
  10867. ; dc.w 0
  10868. ; dc.w $82
  10869. ;pcl1:
  10870. ; dc.w 0 
  10871. ; 
  10872. ; dc.w $88,0
  10873. ; 
  10874. ; dc.w $ffff,$fffe       ; End copper list.
  10875.  
  10876. ; ds.l 104*12
  10877.  
  10878.  
  10879. ;colbars2:
  10880. ;val SET $2a
  10881. ; dcb.l 104*80,$1fe0000
  10882. ; 
  10883. ; dc.w $106,$c42
  10884. ; 
  10885. ; dc.w $80
  10886. ;pch2:
  10887. ; dc.w 0
  10888. ; dc.w $82
  10889. ;pcl2:
  10890. ; dc.w 0
  10891. ; 
  10892. ; dc.w $88,0
  10893. ; 
  10894. ; dc.w $ffff,$fffe       ; End copper list.
  10895.  
  10896. ; ds.l 104*10
  10897.  
  10898. NullCopper:
  10899.  dc.w $ffff,$fffe
  10900.  
  10901. hitcol: dc.l 0
  10902.  
  10903. old: dc.l 0
  10904.  
  10905. prot5: dc.w 0
  10906. PanelCop:
  10907.  
  10908.  dc.w $80
  10909. och:
  10910.  dc.w 0
  10911.  dc.w $82
  10912. ocl:
  10913.  dc.w 0
  10914.  
  10915. statskip:
  10916.  dc.w $1fe,0
  10917.  dc.w $1fe,0
  10918.  
  10919.  dc.w $10c,0
  10920.  dc.w bplcon0,$1201
  10921.  dc.w bpl1ptl
  10922. n1l:
  10923.  dc.w 0
  10924.  dc.w bpl1pth
  10925. n1h:
  10926.  dc.w 0
  10927.  dc.w $108,-24
  10928.  incbin "ab3:includes/Panelpal"
  10929.  
  10930.  dc.w bpl2pth
  10931. p2h
  10932.  dc.w 0
  10933.  
  10934.  dc.w bpl2ptl
  10935. p2l
  10936.  dc.w 0
  10937.  
  10938.  dc.w bpl3pth
  10939. p3h
  10940.  dc.w 0
  10941.  
  10942.  dc.w bpl3ptl
  10943. p3l
  10944.  dc.w 0
  10945.  
  10946.  dc.w bpl4pth
  10947. p4h
  10948.  dc.w 0
  10949.  dc.w bpl4ptl
  10950. p4l
  10951.  dc.w 0
  10952.  dc.w bpl5pth
  10953. p5h
  10954.  dc.w 0
  10955.  dc.w bpl5ptl
  10956. p5l
  10957.  dc.w 0
  10958.  dc.w bpl6pth
  10959. p6h
  10960.  dc.w 0
  10961.  dc.w bpl6ptl
  10962. p6l
  10963.  dc.w 0
  10964.  dc.w bpl7pth
  10965. p7h
  10966.  dc.w 0
  10967.  dc.w bpl7ptl
  10968. p7l
  10969.  dc.w 0
  10970.  dc.w bpl8pth
  10971. p8h
  10972.  dc.w 0
  10973.  dc.w bpl8ptl
  10974. p8l
  10975.  dc.w 0
  10976.  
  10977.  
  10978.  dc.w ddfstart,$38
  10979.  dc.w ddfstop,$b8
  10980.  dc.w diwstart,$2c81
  10981.  dc.w diwstop,$2cc1
  10982.  
  10983.  dc.w bplcon0
  10984. Panelcon: dc.w $0211
  10985.  dc.w bpl1pth
  10986. p1h
  10987.  dc.w 0
  10988.  
  10989.  dc.w bpl1ptl
  10990. p1l
  10991.  dc.w 0
  10992.  
  10993.  
  10994.  dc.w $108,40*7
  10995.  dc.w $10a,40*7
  10996.  
  10997.  dc.w $ffff,$fffe
  10998.  
  10999.  dc.w $180,$fff
  11000.  
  11001.  
  11002.  dc.w $f801,$ff00
  11003.  dc.w col1,$50
  11004.  dc.w $f901,$ff00
  11005.  dc.w col1,$90
  11006.  dc.w $fa01,$ff00
  11007.  dc.w col1,$f0
  11008.  dc.w $fb01,$ff00
  11009.  dc.w col1,$f0
  11010.  dc.w $fc01,$ff00
  11011.  dc.w col1,$90
  11012.  dc.w $fd01,$ff00
  11013.  dc.w col1,$50
  11014.  
  11015.  dc.w $fe01,$ff00
  11016.  dc.w col1,$fff
  11017.  
  11018.  dc.w $ffdf,$fffe
  11019.  dc.w $a01,$ff00
  11020.  dc.w bplcon0,$201
  11021.  
  11022.  incbin "ab3:includes/faces2cols"
  11023.  dc.w bpl1pth
  11024. f1h
  11025.  dc.w 0
  11026.  
  11027.  dc.w bpl1ptl
  11028. f1l
  11029.  dc.w 0
  11030.  
  11031.  dc.w bpl2pth
  11032. f2h
  11033.  dc.w 0
  11034.  
  11035.  dc.w bpl2ptl
  11036. f2l
  11037.  dc.w 0
  11038.  
  11039.  dc.w bpl3pth
  11040. f3h
  11041.  dc.w 0
  11042.  
  11043.  dc.w bpl3ptl
  11044. f3l
  11045.  dc.w 0
  11046.  
  11047.  dc.w bpl4pth
  11048. f4h
  11049.  dc.w 0
  11050.  dc.w bpl4ptl
  11051. f4l
  11052.  dc.w 0
  11053.  
  11054.  dc.w bpl5pth
  11055. f5h
  11056.  dc.w 0
  11057.  dc.w bpl5ptl
  11058. f5l
  11059.  dc.w 0
  11060.  
  11061.  dc.w $0c01,$ff00
  11062.  dc.w bplcon0,$5201
  11063.   
  11064.  dc.w $ffff,$fffe
  11065.  
  11066.  cnop 0,64
  11067. FacePlace:
  11068. ; ds.l 6*32*5
  11069.  
  11070. TEXTSCRN: dc.l 0
  11071.  
  11072. TEXTCOP:
  11073.  dc.w intreq,$8030
  11074.  
  11075.  dc.w spr0ptl
  11076. txs0l:
  11077.  dc.w 0
  11078.  dc.w spr0pth
  11079. txs0h:
  11080.  dc.w 0
  11081.  dc.w spr1ptl
  11082. txs1l:
  11083.  dc.w 0
  11084.  dc.w spr1pth
  11085. txs1h:
  11086.  dc.w 0
  11087.  dc.w spr2ptl
  11088. txs2l:
  11089.  dc.w 0
  11090.  dc.w spr2pth
  11091. txs2h:
  11092.  dc.w 0
  11093.  dc.w spr3ptl
  11094. txs3l:
  11095.  dc.w 0
  11096.  dc.w spr3pth
  11097. txs3h:
  11098.  dc.w 0
  11099.  dc.w spr4ptl
  11100. txs4l:
  11101.  dc.w 0
  11102.  dc.w spr4pth
  11103. txs4h:
  11104.  dc.w 0
  11105.  dc.w spr5ptl
  11106. txs5l:
  11107.  dc.w 0
  11108.  dc.w spr5pth
  11109. txs5h:
  11110.  dc.w 0
  11111.  dc.w spr6ptl
  11112. txs6l:
  11113.  dc.w 0
  11114.  dc.w spr6pth
  11115. txs6h:
  11116.  dc.w 0
  11117.  dc.w spr7ptl
  11118. txs7l:
  11119.  dc.w 0
  11120.  dc.w spr7pth
  11121. txs7h:
  11122.  dc.w 0
  11123.  
  11124.  
  11125.  dc.w $10c,$0088
  11126.  
  11127.  dc.w $1fc,$f
  11128.  dc.w diwstart,$2c81    ; Top left corner of screen.
  11129.  dc.w diwstop,$2cc1     ; Bottom right corner of screen.
  11130.  dc.w ddfstart,$38      ; Data fetch start.
  11131.  dc.w ddfstop,$c8       ; Data fetch stop.
  11132.  
  11133.  dc.w bplcon0
  11134. TSCP:
  11135.  dc.w $9201
  11136.  
  11137.  dc.w $106,$c40
  11138.  
  11139.  dc.w $2a01,$ff00
  11140.  
  11141.  dc.w col0,0
  11142.  dc.w col1
  11143. TOPLET:
  11144. TXTCOLL:
  11145.  dc.w 0
  11146.   dc.w col2
  11147. BOTLET:
  11148.  dc.w 0
  11149.  dc.w col3
  11150. ALLTEXT:
  11151.  dc.w $fff
  11152.  dc.w $106,$e40
  11153.  dc.w col3
  11154. ALLTEXTLOW:
  11155.  dc.w $0
  11156.  
  11157.  
  11158.  dc.w bpl1pth
  11159. TSPTh:
  11160.  dc.w 0
  11161.  dc.w bpl1ptl
  11162. TSPTl:
  11163.  dc.w 0
  11164.  
  11165.  dc.w bpl2pth
  11166. TSPTh2:
  11167.  dc.w 0
  11168.  dc.w bpl2ptl
  11169. TSPTl2:
  11170.  dc.w 0
  11171.  
  11172.  
  11173.  dc.w $108,0
  11174.  dc.w $10a,0
  11175.  
  11176.  dc.w $ffff,$fffe
  11177.  
  11178. ********************************************
  11179. * Stuff you don't have to worry about yet. *
  11180. ********************************************
  11181.  
  11182. closeeverything:
  11183.  
  11184.  jsr mt_end
  11185.  
  11186.  move.l #nullcop,d0
  11187. ; move.l old,d0
  11188.  
  11189.  
  11190. ;charlie  
  11191.  move.l d0,$dff080     ; Restore old copper list.
  11192.  move.w d0,ocl
  11193.  swap d0
  11194.  move.w d0,och
  11195.  
  11196. ; move.l doslib,a6
  11197. ; move.l #4,d1
  11198. ; jsr -198(a6)
  11199.  
  11200. ; move.l doslib,d0
  11201. ; move.l d0,a1
  11202. ; move.l 4.w,a6
  11203. ; jsr CloseLib(a6)
  11204.  
  11205.  move.l #$dff000,a6
  11206.  move.w #$8020,dmacon(a6)
  11207.  move.w #$f,dmacon(a6)
  11208.  
  11209. ; move.l 4.w,a6
  11210. ; lea VBLANKInt,a1
  11211. ; moveq #INTB_COPER,d0
  11212. ; jsr _LVORemIntServer(a6)
  11213.  
  11214. ; IFEQ CD32VER
  11215. ; move.l OLDKINT,$68.w
  11216. ; ENDC
  11217. ; move.w saveinters,d0
  11218. ; or.w #$c000,d0
  11219. ; move.w d0,intena(a6)
  11220.  clr.w $dff0a8
  11221.  clr.w $dff0b8
  11222.  clr.w $dff0c8
  11223.  clr.w $dff0d8
  11224.  
  11225.  
  11226. ; move.l oldview,a1
  11227. ; move.l a1,d0
  11228. ; move.l gfxbase,a6
  11229. ; jsr -$de(a6)
  11230.  
  11231. ; cmp.b #'s',mors
  11232. ; beq.s leaveold
  11233. ; move.w #$f8e,$dff1dc
  11234. ;leaveold:
  11235.  
  11236.  jsr RELEASELEVELMEM
  11237.  jsr RELEASESCRNMEM
  11238.  
  11239.  move.l #0,d0
  11240.  
  11241.  rts
  11242.  
  11243.  
  11244.  
  11245. intbase: dc.l 0
  11246. gfxbase: dc.l 0
  11247. oldview: dc.l 0
  11248.  
  11249. stuff:
  11250.  
  11251.     PRSDL
  11252.     Lea    gfxname(pc),a1    
  11253.     Moveq.l    #0,d0
  11254.     Move.l    $4.w,a6    
  11255.     Jsr    -$228(a6)
  11256.     add.w d1,RVAL1
  11257.     Move.l     d0,gfxbase
  11258.     Move.l    d0,a6                Use As Base Reg
  11259.     Move.l    34(a6),oldview
  11260.     move.l 38(a6),old
  11261.     rts
  11262.  
  11263. gfxname dc.b "graphics.library",0
  11264.  even
  11265. INTUNAME    dc.b    "intuition.library",0
  11266.  
  11267.  even
  11268.  
  11269.  
  11270.  cnop 0,64
  11271.  
  11272. Panel:
  11273.  dc.l 0
  11274.  
  11275. TimerScr: 
  11276. ;ds.b 40*64
  11277.  
  11278. scrntab:
  11279.  ds.b 16
  11280. val SET 32
  11281.  REPT 96
  11282.  dc.b val,val,val
  11283. val SET val+1
  11284.  ENDR
  11285.  ds.b 16
  11286.  
  11287. smallscrntab:
  11288. val SET 32
  11289.  REPT 96
  11290.  dc.b val,val
  11291. val SET val+1
  11292.  ENDR
  11293.  
  11294.  cnop 0,64
  11295. ;scrn:
  11296. ; ds.l 2560*8
  11297. ;scrn2:
  11298. ; ds.l 2560*8
  11299.  
  11300.  
  11301.  dcb.l 8,$33333333
  11302.  dc.l 0
  11303.  dc.l 0
  11304.  
  11305.  dcb.l 8,$0f0f0f0f
  11306.  dc.l 0
  11307.  dc.l 0
  11308.  
  11309.  dcb.l 8,$00ff00ff
  11310.  dc.l 0
  11311.  dc.l 0
  11312.  
  11313.  dcb.l 8,$0000ffff
  11314.  dc.l 0
  11315.  dc.l 0
  11316.  
  11317.  dc.l 0,-1,0,-1,0,-1,0,-1
  11318.  dc.l 0
  11319.  dc.l 0
  11320.  
  11321.  dc.l -1,-1,0,0,-1,-1,0,0
  11322.  dc.l 0
  11323.  dc.l 0
  11324.  
  11325.  dc.l 0,0,-1,-1,-1,-1,-1,-1
  11326.  dc.l 0
  11327.  dc.l 0
  11328.  
  11329. NumTimes: dc.l 0
  11330. TimeCount: dc.l 0
  11331. oldtime: dc.l 0
  11332. counting: dc.b 0
  11333. oktodisplay: dc.b 0
  11334.  
  11335. INITTIMER:
  11336.  move.l #0,TimeCount
  11337.  move.l #0,NumTimes
  11338.  rts
  11339.  
  11340. STARTCOUNT:
  11341.  move.l d0,-(a7)
  11342.  move.l $dff004,d0
  11343.  and.l #$1ffff,d0
  11344.  move.l d0,oldtime
  11345.  st counting
  11346.  move.l (a7)+,d0
  11347.  rts
  11348.  
  11349. STOPCOUNT:
  11350.  move.l d0,-(a7)
  11351.  move.l $dff004,d0
  11352.  and.l #$1ffff,d0
  11353.  
  11354.  sub.l oldtime,d0
  11355.  cmp.l #-256,d0
  11356.  bge.s okcount
  11357.  add.l #313*256,d0
  11358. okcount:
  11359.  add.l d0,TimeCount
  11360.  addq.l #1,NumTimes
  11361.  clr.b counting
  11362.  move.l (a7)+,d0
  11363.  rts
  11364.  
  11365. STOPCOUNTNOADD:
  11366.  move.l d0,-(a7)
  11367.  move.l $dff004,d0
  11368.  and.l #$1ffff,d0
  11369.  
  11370.  sub.l oldtime,d0
  11371.  cmp.l #-256,d0
  11372.  bge.s okcount2
  11373.  add.l #313*256,d0
  11374. okcount2:
  11375.  add.l d0,TimeCount
  11376.  clr.b counting
  11377.  move.l (a7)+,d0
  11378.  rts
  11379.  
  11380. maxbot: dc.w 0
  11381. tstneg: dc.l 0
  11382.  
  11383. STOPTIMER:
  11384.  st oktodisplay
  11385.  rts
  11386.  
  11387. digits: incbin "ab3:includes/numbers.inc"
  11388.  
  11389. COMPACTMAP: ds.l 257
  11390.  
  11391. BIGMAP: ds.l 256*10
  11392.  
  11393.  Section Sounds,CODE_C
  11394.  
  11395. nullcop:
  11396.  dc.w $106,$c40
  11397.  dc.w $180,0 
  11398.  dc.w $100,$0
  11399.  dc.w $ffff,$fffe
  11400.  
  11401. Scream:
  11402. ; incbin "ab3:sounds/Scream"
  11403. ; ds.w 100
  11404. EndScream:
  11405. LowScream:
  11406. ; incbin "ab3:sounds/LowScream"
  11407. ; ds.w 100
  11408. EndLowScream:
  11409. BaddieGun:
  11410. ; incbin "ab3:sounds/BaddieGun"
  11411. EndBaddieGun:
  11412. bass:
  11413. ; incbin "ab3:sounds/backbass+drum"
  11414. bassend:
  11415. Shoot:
  11416. ; incbin "ab3:sounds/fire!"
  11417. EndShoot:
  11418. Munch:
  11419. ; incbin "ab3:sounds/munch"
  11420. EndMunch:
  11421. PooGun:
  11422. ; incbin "ab3:sounds/shoot.dm"
  11423. EndPooGun:
  11424. Collect:
  11425. ; incbin "ab3:sounds/collect"
  11426. EndCollect:
  11427. DoorNoise:
  11428. ; incbin "ab3:sounds/newdoor"
  11429. EndDoorNoise:
  11430. Stomp:
  11431. ; incbin "ab3:sounds/footstep3"
  11432. EndStomp:
  11433. SwitchNoise:
  11434. ; incbin "ab3:sounds/switch"
  11435. EndSwitch:
  11436. Reload:
  11437. ; incbin "ab3:sounds/switch1.SFX"
  11438. EndReload:
  11439.  
  11440. CHEATFRAME:
  11441.  dc.b 26,20,33,27,17,12
  11442. ENDCHEAT:
  11443.  
  11444. NoAmmo:
  11445. ; incbin "ab3:sounds/noammo"
  11446. EndNoAmmo:
  11447. Splotch:
  11448. ; incbin "ab3:sounds/splotch"
  11449. EndSplotch:
  11450. SplatPop:
  11451. ; incbin "ab3:sounds/splatpop"
  11452. EndSplatPop:
  11453. Boom:
  11454. ; incbin "ab3:sounds/boom"
  11455. EndBoom:
  11456. Hiss:
  11457. ; incbin "ab3:sounds/newhiss"
  11458. EndHiss:
  11459. Howl1:
  11460. ; incbin "ab3:sounds/howl1"
  11461. EndHowl1:
  11462. Howl2:
  11463. ; incbin "ab3:sounds/howl2"
  11464. EndHowl2:
  11465. Pant:
  11466. ; incbin "ab3:sounds/pant"
  11467. EndPant:
  11468. Whoosh:
  11469. ; incbin "ab3:sounds/whoosh"
  11470. EndWhoosh:
  11471. ROAR:
  11472. ; incbin "ab3:sounds/bigscream"
  11473. EndROAR
  11474. whoosh:
  11475. ; incbin "ab3:sounds/flame"
  11476. Endwhoosh:
  11477.  SECTION music,code_c
  11478.  
  11479. UseAllChannels: dc.w 0
  11480.  
  11481. mt_init:move.l    mt_data,a0
  11482.     move.l    a0,a1
  11483.     add.l    #$3b8,a1
  11484.     moveq    #$7f,d0
  11485.     moveq    #0,d1
  11486. mt_loop:move.l    d1,d2
  11487.     subq.w    #1,d0
  11488. mt_lop2:move.b    (a1)+,d1
  11489.     cmp.b    d2,d1
  11490.     bgt.s    mt_loop
  11491.     dbf    d0,mt_lop2
  11492.     addq.b    #1,d2
  11493.  
  11494.     lea    mt_samplestarts(pc),a1
  11495.     asl.l    #8,d2
  11496.     asl.l    #2,d2
  11497.     add.l    #$43c,d2
  11498.     add.l    a0,d2
  11499.     move.l    d2,a2
  11500.     moveq    #$1e,d0
  11501. mt_lop3:clr.l    (a2)
  11502.     move.l    a2,(a1)+
  11503.     moveq    #0,d1
  11504.     move.w    42(a0),d1
  11505.     asl.l    #1,d1
  11506.     add.l    d1,a2
  11507.     add.l    #$1e,a0
  11508.     dbf    d0,mt_lop3
  11509.  
  11510.     or.b    #$2,$bfe001
  11511.     move.b    #$6,mt_speed
  11512.     clr.w    $dff0a8
  11513.     clr.w    $dff0b8
  11514.     clr.w    $dff0c8
  11515.     clr.w    $dff0d8
  11516.     clr.b    mt_songpos
  11517.     clr.b    mt_counter
  11518.     clr.w    mt_pattpos
  11519.     rts
  11520.  
  11521. mt_end:    clr.w    $dff0a8
  11522.     clr.w    $dff0b8
  11523.     clr.w    $dff0c8
  11524.     clr.w    $dff0d8
  11525.     move.w    #$f,$dff096
  11526.     rts
  11527.  
  11528. mt_music:
  11529.     movem.l    d0-d4/a0-a3/a5-a6,-(a7)
  11530.     move.l    mt_data,a0
  11531.     addq.b    #$1,mt_counter
  11532.     move.b    mt_counter,D0
  11533.     cmp.b    mt_speed,D0
  11534.     blt.s    mt_nonew
  11535.     clr.b    mt_counter
  11536.     bra    mt_getnew
  11537.  
  11538. mt_nonew:
  11539.     lea    mt_voice1(pc),a6
  11540.     lea    $dff0a0,a5
  11541.     bsr    mt_checkcom
  11542.     lea    mt_voice2(pc),a6
  11543.     lea    $dff0b0,a5
  11544.     bsr    mt_checkcom
  11545.     tst.b UseAllChannels
  11546.     beq mt_endr
  11547.      lea    mt_voice3(pc),a6
  11548.     lea    $dff0c0,a5
  11549.     bsr    mt_checkcom
  11550.     lea    mt_voice4(pc),a6
  11551.     lea    $dff0d0,a5
  11552.     bsr    mt_checkcom
  11553.     bra    mt_endr
  11554.  
  11555. mt_arpeggio:
  11556.     moveq    #0,d0
  11557.     move.b    mt_counter,d0
  11558.     divs    #$3,d0
  11559.     swap    d0
  11560.     cmp.w    #$0,d0
  11561.     beq.s    mt_arp2
  11562.     cmp.w    #$2,d0
  11563.     beq.s    mt_arp1
  11564.  
  11565.     moveq    #0,d0
  11566.     move.b    $3(a6),d0
  11567.     lsr.b    #4,d0
  11568.     bra.s    mt_arp3
  11569. mt_arp1:moveq    #0,d0
  11570.     move.b    $3(a6),d0
  11571.     and.b    #$f,d0
  11572.     bra.s    mt_arp3
  11573. mt_arp2:move.w    $10(a6),d2
  11574.     bra.s    mt_arp4
  11575. mt_arp3:asl.w    #1,d0
  11576.     moveq    #0,d1
  11577.     move.w    $10(a6),d1
  11578.     lea    mt_periods(pc),a0
  11579.     moveq    #$24,d7
  11580. mt_arploop:
  11581.     move.w    (a0,d0.w),d2
  11582.     cmp.w    (a0),d1
  11583.     bge.s    mt_arp4
  11584.     addq.l    #2,a0
  11585.     dbf    d7,mt_arploop
  11586.     rts
  11587. mt_arp4:move.w    d2,$6(a5)
  11588.     rts
  11589.  
  11590. mt_getnew:
  11591.     move.l    mt_data,a0
  11592.     move.l    a0,a3
  11593.     move.l    a0,a2
  11594.     add.l    #$c,a3
  11595.     add.l    #$3b8,a2
  11596.     add.l    #$43c,a0
  11597.  
  11598.     moveq    #0,d0
  11599.     move.l    d0,d1
  11600.     move.b    mt_songpos,d0
  11601.     move.b    (a2,d0.w),d1
  11602.     asl.l    #8,d1
  11603.     asl.l    #2,d1
  11604.     add.w    mt_pattpos,d1
  11605.     clr.w    mt_dmacon
  11606.  
  11607.     lea    $dff0a0,a5
  11608.     lea    mt_voice1(pc),a6
  11609.     bsr    mt_playvoice
  11610.     lea    $dff0b0,a5
  11611.     lea    mt_voice2(pc),a6
  11612.     bsr    mt_playvoice
  11613.     tst.b UseAllChannels
  11614.     beq mt_setdma
  11615.     lea    $dff0c0,a5
  11616.     lea    mt_voice3(pc),a6
  11617.     bsr    mt_playvoice
  11618.     lea    $dff0d0,a5
  11619.     lea    mt_voice4(pc),a6
  11620.     bsr    mt_playvoice
  11621.     bra    mt_setdma
  11622.  
  11623. PROTCALC:
  11624. ;    include "ab3:source_4000/protcalc.s"
  11625.     incbin "ab3:includes/protcalc.bin"
  11626. ENDPROTCALC:
  11627.  
  11628. mt_playvoice:
  11629.     move.l    (a0,d1.l),(a6)
  11630.     addq.l    #4,d1
  11631.     moveq    #0,d2
  11632.     move.b    $2(a6),d2
  11633.     and.b    #$f0,d2
  11634.     lsr.b    #4,d2
  11635.     move.b    (a6),d0
  11636.     and.b    #$f0,d0
  11637.     or.b    d0,d2
  11638.     tst.b    d2
  11639.     beq.s    mt_setregs
  11640.     moveq    #0,d3
  11641.     lea    mt_samplestarts(pc),a1
  11642.     move.l    d2,d4
  11643.     subq.l    #$1,d2
  11644.     asl.l    #2,d2
  11645.     mulu    #$1e,d4
  11646.     move.l    (a1,d2.l),$4(a6)
  11647.     move.w    (a3,d4.l),$8(a6)
  11648.     move.w    $2(a3,d4.l),$12(a6)
  11649.     move.w    $4(a3,d4.l),d3
  11650.     tst.w    d3
  11651.     beq.s    mt_noloop
  11652.     move.l    $4(a6),d2
  11653.     asl.w    #1,d3
  11654.     add.l    d3,d2
  11655.     move.l    d2,$a(a6)
  11656.     move.w    $4(a3,d4.l),d0
  11657.     add.w    $6(a3,d4.l),d0
  11658.     move.w    d0,8(a6)
  11659.     move.w    $6(a3,d4.l),$e(a6)
  11660.     move.w    $12(a6),d0
  11661.     asr.w #2,d0
  11662.     move.w d0,$8(a5)
  11663.     bra.s    mt_setregs
  11664. mt_noloop:
  11665.     move.l    $4(a6),d2
  11666.     add.l    d3,d2
  11667.     move.l    d2,$a(a6)
  11668.     move.w    $6(a3,d4.l),$e(a6)
  11669.     move.w    $12(a6),d0
  11670.     asr.w #2,d0
  11671.     move.w d0,$8(a5)
  11672. mt_setregs:
  11673.     move.w    (a6),d0
  11674.     and.w    #$fff,d0
  11675.     beq    mt_checkcom2
  11676.     move.b    $2(a6),d0
  11677.     and.b    #$F,d0
  11678.     cmp.b    #$3,d0
  11679.     bne.s    mt_setperiod
  11680.     bsr    mt_setmyport
  11681.     bra    mt_checkcom2
  11682. mt_setperiod:
  11683.     move.w    (a6),$10(a6)
  11684.     and.w    #$fff,$10(a6)
  11685.     move.w    $14(a6),d0
  11686.     move.w    d0,$dff096
  11687.     clr.b    $1b(a6)
  11688.  
  11689.     move.l    $4(a6),(a5)
  11690.     move.w    $8(a6),$4(a5)
  11691.     move.w    $10(a6),d0
  11692.     and.w    #$fff,d0
  11693.     move.w    d0,$6(a5)
  11694.     move.w    $14(a6),d0
  11695.     or.w    d0,mt_dmacon
  11696.     bra    mt_checkcom2
  11697.  
  11698. mt_setdma:
  11699.      move.w #250,d0
  11700. mt_wait:
  11701.      add.w #1,testchip
  11702.      dbra d0,mt_wait
  11703.     move.w    mt_dmacon,d0
  11704.     or.w    #$8000,d0
  11705.     and.w #%1111111111110011,d0
  11706.     move.w    d0,$dff096
  11707.     move.w #250,d0
  11708. mt_wait2:
  11709.     add.w #1,testchip
  11710.     dbra    d0,mt_wait2
  11711.     lea    $dff000,a5
  11712.     tst.b UseAllChannels
  11713.     beq.s noall
  11714.     lea    mt_voice4(pc),a6
  11715.     move.l    $a(a6),$d0(a5)
  11716.     move.w    $e(a6),$d4(a5)
  11717.     lea    mt_voice3(pc),a6
  11718.     move.l    $a(a6),$c0(a5)
  11719.     move.w    $e(a6),$c4(a5)
  11720. noall:
  11721.     lea    mt_voice2(pc),a6
  11722.     move.l    $a(a6),$b0(a5)
  11723.     move.w    $e(a6),$b4(a5)
  11724.     lea    mt_voice1(pc),a6
  11725.     move.l    $a(a6),$a0(a5)
  11726.     move.w    $e(a6),$a4(a5)
  11727.  
  11728.     add.w    #$10,mt_pattpos
  11729.     cmp.w    #$400,mt_pattpos
  11730.     bne.s    mt_endr
  11731. mt_nex:    clr.w    mt_pattpos
  11732.     clr.b    mt_break
  11733.     addq.b    #1,mt_songpos
  11734.     and.b    #$7f,mt_songpos
  11735.     move.b    mt_songpos,d1
  11736. ;    cmp.b    mt_data+$3b6,d1
  11737. ;    bne.s    mt_endr
  11738. ;    move.b    mt_data+$3b7,mt_songpos
  11739. mt_endr:tst.b    mt_break
  11740.     bne.s    mt_nex
  11741.     movem.l    (a7)+,d0-d4/a0-a3/a5-a6
  11742.     rts
  11743.  
  11744. mt_setmyport:
  11745.     move.w    (a6),d2
  11746.     and.w    #$fff,d2
  11747.     move.w    d2,$18(a6)
  11748.     move.w    $10(a6),d0
  11749.     clr.b    $16(a6)
  11750.     cmp.w    d0,d2
  11751.     beq.s    mt_clrport
  11752.     bge.s    mt_rt
  11753.     move.b    #$1,$16(a6)
  11754.     rts
  11755. mt_clrport:
  11756.     clr.w    $18(a6)
  11757. mt_rt:    rts
  11758.  
  11759. CODESTORE: dc.l 0
  11760.  
  11761. mt_myport:
  11762.     move.b    $3(a6),d0
  11763.     beq.s    mt_myslide
  11764.     move.b    d0,$17(a6)
  11765.     clr.b    $3(a6)
  11766. mt_myslide:
  11767.     tst.w    $18(a6)
  11768.     beq.s    mt_rt
  11769.     moveq    #0,d0
  11770.     move.b    $17(a6),d0
  11771.     tst.b    $16(a6)
  11772.     bne.s    mt_mysub
  11773.     add.w    d0,$10(a6)
  11774.     move.w    $18(a6),d0
  11775.     cmp.w    $10(a6),d0
  11776.     bgt.s    mt_myok
  11777.     move.w    $18(a6),$10(a6)
  11778.     clr.w    $18(a6)
  11779. mt_myok:move.w    $10(a6),$6(a5)
  11780.     rts
  11781. mt_mysub:
  11782.     sub.w    d0,$10(a6)
  11783.     move.w    $18(a6),d0
  11784.     cmp.w    $10(a6),d0
  11785.     blt.s    mt_myok
  11786.     move.w    $18(a6),$10(a6)
  11787.     clr.w    $18(a6)
  11788.     move.w    $10(a6),$6(a5)
  11789.     rts
  11790.  
  11791. mt_vib:    move.b    $3(a6),d0
  11792.     beq.s    mt_vi
  11793.     move.b    d0,$1a(a6)
  11794.  
  11795. mt_vi:    move.b    $1b(a6),d0
  11796.     lea    mt_sin(pc),a4
  11797.     lsr.w    #$2,d0
  11798.     and.w    #$1f,d0
  11799.     moveq    #0,d2
  11800.     move.b    (a4,d0.w),d2
  11801.     move.b    $1a(a6),d0
  11802.     and.w    #$f,d0
  11803.     mulu    d0,d2
  11804.     lsr.w    #$6,d2
  11805.     move.w    $10(a6),d0
  11806.     tst.b    $1b(a6)
  11807.     bmi.s    mt_vibmin
  11808.     add.w    d2,d0
  11809.     bra.s    mt_vib2
  11810. mt_vibmin:
  11811.     sub.w    d2,d0
  11812. mt_vib2:move.w    d0,$6(a5)
  11813.     move.b    $1a(a6),d0
  11814.     lsr.w    #$2,d0
  11815.     and.w    #$3c,d0
  11816.     add.b    d0,$1b(a6)
  11817.     rts
  11818.  
  11819. mt_nop:    move.w    $10(a6),$6(a5)
  11820.     rts
  11821.  
  11822.  
  11823. mt_checkcom:
  11824.     move.w    $2(a6),d0
  11825.     and.w    #$fff,d0
  11826.     beq.s    mt_nop
  11827.     move.b    $2(a6),d0
  11828.     and.b    #$f,d0
  11829.     tst.b    d0
  11830.     beq    mt_arpeggio
  11831.     cmp.b    #$1,d0
  11832.     beq.s    mt_portup
  11833.     cmp.b    #$2,d0
  11834.     beq    mt_portdown
  11835.     cmp.b    #$3,d0
  11836.     beq    mt_myport
  11837.     cmp.b    #$4,d0
  11838.     beq    mt_vib
  11839.     move.w    $10(a6),$6(a5)
  11840.     cmp.b    #$a,d0
  11841.     beq.s    mt_volslide
  11842.     rts
  11843.  
  11844. mt_volslide:
  11845.     moveq    #0,d0
  11846.     move.b    $3(a6),d0
  11847.     lsr.b    #4,d0
  11848.     tst.b    d0
  11849.     beq.s    mt_voldown
  11850.     add.w    d0,$12(a6)
  11851.     cmp.w    #$40,$12(a6)
  11852.     bmi.s    mt_vol2
  11853.     move.w    #$40,$12(a6)
  11854. mt_vol2:move.w    $12(a6),d0
  11855.     asr.w #2,d0
  11856.     move.w d0,$8(a5)
  11857.     rts
  11858.  
  11859. mt_voldown:
  11860.     moveq    #0,d0
  11861.     move.b    $3(a6),d0
  11862.     and.b    #$f,d0
  11863.     sub.w    d0,$12(a6)
  11864.     bpl.s    mt_vol3
  11865.     clr.w    $12(a6)
  11866. mt_vol3:move.w    $12(a6),d0
  11867.     asr.w #2,d0
  11868.     move.w d0,$8(a5)
  11869.     rts
  11870.  
  11871. mt_portup:
  11872.     moveq    #0,d0
  11873.     move.b    $3(a6),d0
  11874.     sub.w    d0,$10(a6)
  11875.     move.w    $10(a6),d0
  11876.     and.w    #$fff,d0
  11877.     cmp.w    #$71,d0
  11878.     bpl.s    mt_por2
  11879.     and.w    #$f000,$10(a6)
  11880.     or.w    #$71,$10(a6)
  11881. mt_por2:move.w    $10(a6),d0
  11882.     and.w    #$fff,d0
  11883.     move.w    d0,$6(a5)
  11884.     rts
  11885.  
  11886. mt_portdown:
  11887.     clr.w    d0
  11888.     move.b    $3(a6),d0
  11889.     add.w    d0,$10(a6)
  11890.     move.w    $10(a6),d0
  11891.     and.w    #$fff,d0
  11892.     cmp.w    #$358,d0
  11893.     bmi.s    mt_por3
  11894.     and.w    #$f000,$10(a6)
  11895.     or.w    #$358,$10(a6)
  11896. mt_por3:move.w    $10(a6),d0
  11897.     and.w    #$fff,d0
  11898.     move.w    d0,$6(a5)
  11899.     rts
  11900.  
  11901. mt_checkcom2:
  11902.     move.b    $2(a6),d0
  11903.     and.b    #$f,d0
  11904.     cmp.b    #$e,d0
  11905.     beq.s    mt_setfilt
  11906.     cmp.b    #$d,d0
  11907.     beq.s    mt_pattbreak
  11908.     cmp.b    #$b,d0
  11909.     beq.s    mt_posjmp
  11910.     cmp.b    #$c,d0
  11911.     beq.s    mt_setvol
  11912.     cmp.b    #$f,d0
  11913.     beq.s    mt_setspeed
  11914.     rts
  11915.  
  11916. mt_setfilt:
  11917.     move.b    $3(a6),d0
  11918.     and.b    #$1,d0
  11919.     asl.b    #$1,d0
  11920.     and.b    #$fd,$bfe001
  11921.     or.b    d0,$bfe001
  11922.     rts
  11923. mt_pattbreak:
  11924.     not.b    mt_break
  11925.     rts
  11926. mt_posjmp:
  11927.     st reachedend
  11928.     move.b    $3(a6),d0
  11929.     subq.b    #$1,d0
  11930.     move.b    d0,mt_songpos
  11931.     not.b    mt_break
  11932.     rts
  11933. mt_setvol:
  11934.     cmp.b    #$40,$3(a6)
  11935.     ble.s    mt_vol4
  11936.     move.b    #$40,$3(a6)
  11937. mt_vol4:move.b    $3(a6),d0
  11938.     asr.w #2,d0
  11939.     move.w d0,$8(a5)
  11940.     rts
  11941. mt_setspeed:
  11942.     cmp.b    #$1f,$3(a6)
  11943.     ble.s    mt_sets
  11944.     move.b    #$1f,$3(a6)
  11945. mt_sets:move.b    $3(a6),d0
  11946.     beq.s    mt_rts2
  11947.     move.b    d0,mt_speed
  11948.     clr.b    mt_counter
  11949. mt_rts2:rts
  11950.  
  11951. mt_sin:
  11952.  DC.b $00,$18,$31,$4a,$61,$78,$8d,$a1,$b4,$c5,$d4,$e0,$eb,$f4,$fa,$fd
  11953.  DC.b $ff,$fd,$fa,$f4,$eb,$e0,$d4,$c5,$b4,$a1,$8d,$78,$61,$4a,$31,$18
  11954.  
  11955. mt_periods:
  11956.  DC.w $0358,$0328,$02fa,$02d0,$02a6,$0280,$025c,$023a,$021a,$01fc,$01e0
  11957.  DC.w $01c5,$01ac,$0194,$017d,$0168,$0153,$0140,$012e,$011d,$010d,$00fe
  11958.  DC.w $00f0,$00e2,$00d6,$00ca,$00be,$00b4,$00aa,$00a0,$0097,$008f,$0087
  11959.  DC.w $007f,$0078,$0071,$0000,$0000
  11960.  
  11961. reachedend: dc.b 0
  11962. mt_speed:    DC.b    6
  11963. mt_songpos:    DC.b    0
  11964. mt_pattpos:    DC.w    0
  11965. mt_counter:    DC.b    0
  11966.  
  11967. mt_break:    DC.b    0
  11968. mt_dmacon:    DC.w    0
  11969. mt_samplestarts:DS.L    $1f
  11970. mt_voice1:    DS.w    10
  11971.         DC.w    1
  11972.         DS.w    3
  11973. mt_voice2:    DS.w    10
  11974.         DC.w    2
  11975.         DS.w    3
  11976. mt_voice3:    DS.w    10
  11977.         DC.w    4
  11978.         DS.w    3
  11979. mt_voice4:    DS.w    10
  11980.         DC.w    8
  11981.         DS.w    3
  11982.  
  11983. CHEATPTR: dc.l 0
  11984. CHEATNUM: dc.l 0
  11985.  
  11986. testchip: dc.w 0
  11987. DOUBLEHEIGHT: dc.w 0
  11988. DOUBLEWIDTH: dc.w 0
  11989. AUXOBJ: dc.w 0
  11990. PLR1_RoomBright: dc.w 0
  11991.  
  11992. ;/* End of File */
  11993. mt_data: dc.l 0
  11994. tstchip: dc.l 0
  11995.  include "SERIAL_NIGHTMARE"
  11996.  
  11997. ingame:
  11998. ; incbin "ab3:includes/ingame"
  11999. gameover: incbin "ab3:includes/gameover"
  12000. welldone: incbin "ab3:includes/welldone"
  12001.  
  12002.  
  12003.